2016-09-26

「Office 365 サービスの利用開始手続き完了のお知らせ」というメール

雑文

f:id:vba-belle-equipe:20160926191417j:plain

ある日

2016年×月××日に [Office 365 サービス] のご利用開始手続きが完了しました。サービスの詳しい内容については、こちらをご覧ください。
これは、1 年契約の Office Premium PIPC 向け Office 365 サービスサブスクリプションです。有効期限が切れる前に、サブスクリプションの更新を促すメールがお客様に送信されます。www.Office.com/myaccount にサインインすると、アカウントを管理したり、サブスクリプションに含まれている OneDrive や Skype などのサービスにアクセスすることができます。
http://www.office.com/myaccount/ にアクセスして Office をインストールします。
ありがとうございます。
Microsoft Office チーム
注意: このメールは配信専用のアドレスからお送りしています。このメールにご返信いただいても、お問い合わせにお答えすることはできませんので、あらかじめご了承ください。
アカウントの課金情報の詳細 (該当する場合) については、http://commerce.microsoft.com/ にアクセスしてください。プライバシーに関して不明な点がある場合は、http://privacy.microsoft.com/ にアクセスしてください。

というメールが来ていました。

イタズラかなと思いながら、リンクは押さずにMiceosoftのアカウントを見たら、一応本物っぽい。
（2017年△月△日にサブスクリプションの有効期限が切れますと書いてあった）

新しいPCのOfficeを有効化した時に何かしたんだったっけかな。

半年？くらい経ってるから覚えてないですね。
（昨日でも覚えていないかもしれないが）

それにしても、いきなり「ご利用開始手続きが完了しました」って、ギョッとしますな。

2016-08-13

セル上の英文を読み上げてもらう

VBAサンプル

はじめに
やりたいこと
- 背景
とりあえずやってみよう
セルの読み上げ機能
SAPI？
- 試しに
選択セルを読んでもらう
クイックアクセスツールバーに追加

はじめに

ネタができたらVBAの記事書こうと思っていたら、なかなかに久々になりました。
ネタって自然と湧き出てくるわけではないんですね。

やりたいこと

Excelのセル上の英語テキストを読ませたい

背景

最近「英語物語」というアプリで自動読み上げがすごいなあと思い、
なんかAPIとか使えばVBAでも読み上げできるんじゃないかなと思ったから。

とりあえずやってみよう

まずはExcelの標準でできないかどうか、Google先生にお伺いをたてます。

「Excel」「VBA」「読み上げ」「音声」などを組み合わせて検索。

さすがにできないだろと思うことも、とりあえず訊くが吉です。

セルの読み上げ機能

Excel でテキストを音声に変換する - Excel

こちらのページに「セルの読み上げ機能」というものがあり、「あれ？　終わった」と思いました。
が、これを実際に試してみると、なかなか面白いレベル。

昔の読み上げってこんな感じだったなあという。

Office TANAKA - Excel VBA Tips[テキストファイルを読み上げる]

VBAでもできるようです。

が、もう少しうまく読んでもらえるか調べてみましょう。

SAPI？

VocExcel / SAPI で読み上げ / エクセルマクロ

よくわかりませんが、SAPIというものを使う方法が書いてありました。

試しに

Sub 読み上げテスト()
  Dim Voice1
  
  Set Voice1 = CreateObject("SAPI.SpVoice")
  Set Voice1.Voice = Voice1.GetVoices().Item(0)
  Voice1.Speak "Hello world"
End Sub

上の方法と変わらない？

しかし「読み上げる人物が変る」という情報がありましたので
声のタイプを取得してみると

Sub 声タイプゲット()
  Dim Voice1
  Dim cnt As Long
  Dim i As Long
  
  Set Voice1 = CreateObject("SAPI.SpVoice")
  cnt = Voice1.GetVoices.Count
  For i = 0 To cnt - 1
    Set Voice1.Voice = Voice1.GetVoices().Item(i)
    Debug.Print Voice1.Voice.GetDescription()
  Next i
End Sub

実行すると、イミディエイトウインドウに

Microsoft Haruka Desktop - Japanese
Microsoft Zira Desktop - English (United States)

こんな感じで、表示されます。*1
Englishバージョンがある！
Ziraというのは名前でしょうか。

Voice1.GetVoices().Item(1)にして試したら、無事に英語っぽく読んでくれました。

ヤッタネ！！

選択セルを読んでもらう

ここまできたら、あとは簡単ですね。

Sub 読み上げ()
  Dim Voice1
  Dim cnt As Long
  Dim r As Range
  Dim str As String
  
  Set Voice1 = CreateObject("SAPI.SpVoice")
  Set Voice1.Voice = Voice1.GetVoices().Item(1)
  For Each r In Selection
    str = r.Value
    If str <> "" Then
      Voice1.Speak str
    End If
  Next
End Sub