k2-ornata（個人的「やってみたこと」ブログ）

前回、PowerPointマクロを利用して、オブジェクト内の選択文字列を赤文字に変える手順を記載しました。

しかしながら、この方法だと違う色にする毎にマクロを作成し、クイックアクセスツールバーに登録しなければなりません。

そこで今回は勉強も兼ねて、マクロを実行する度に色を黒→赤→青に変えるプログラムに変更してみました。

With文とIf文を使ってプログラミング

とはいえ、私はVBAについてほぼ初心者なので、With文がなんなのかよく知らず、それを調べる所から始めました。
ちなみになぜ、With文を使おうと思ったかというと、マクロの記録をしたときに、ちょくちょくWith文が使われていたからです。

With文について

どうも調べてみると、With文の中では共通のオブジェクトに対して操作が可能になるようです。

つまり、前回以下のようなプログラムを書きましたが、

Sub 文字列を赤にする()
   ActiveWindow.Selection.TextRange.Font.Color.RGB = RGB(255, 0, 0)
End Sub

With文を利用して、以下のように書き換えることが可能のようです。

Sub 色を変える()
   With ActiveWindow.Selection
      .TextRange.Font.Color.RGB = RGB(255, 0, 0)
   End With
End Sub

Withで操作するオブジェクトを指定しておくことで、End Withまで、いちいちそのオブジェクトを指定しなくて良い、というメリットがあるようです。
上の例だと１回しか操作していないのであまり意味がないですが、同じオブジェクトに対して操作する場合は、With文を使うと効率的ですね。

If文について

If文については、なんからプログラミングされたことがある方なら、どういうものかご存知だと思います。

今回は、指定した文字列が黒だったら赤、赤だったら青、黒および赤以外だったら黒に戻すというプログラムにしました。

プログラミング内容

以下が実際にプログラミングした結果は以下の通りです。

Sub 色を変える()
   
   With ActiveWindow.Selection

      If .TextRange.Font.Color.RGB = RGB(0, 0, 0) Then
         .TextRange.Font.Color.RGB = RGB(255, 0, 0)
      ElseIf .TextRange.Font.Color.RGB = RGB(255, 0, 0) Then
         .TextRange.Font.Color.RGB = RGB(0, 0, 255)
      Else
         .TextRange.Font.Color.RGB = RGB(0, 0, 0)
      End If
      
   End With

End Sub

With文を使っているとはいえ、最初にオブジェクトの宣言などをして、もう少しスッキリしたプログラムにできそうですが、今回でPower Point VBAは２回目だし、これで動いたので、とりあえず良しとしたいと思います。

もしこれからPower Point VBAを勉強しようとしている方の参考になれば幸いです。

Power Point編集中に選択した文字の色を変える際に、私はウィンドウの最上部にある「クイックアクセスツールバー」に「文字色の変更」を割り当てて、キー操作だけで変えれるようにしています。

ただその場合、「文字色の変更」を選択した後で毎回パレットから目的の色を選ばなければならない為、めんどうだなぁと思っていました。

そこで今回、Power Pointの標準の機能ではなく、マクロを利用して、すぐに特定の色（今回は赤）に変更できるようにしてみました。

クイックアクセスツールバーで直接指定した色に変更

マクロ＋クイックアクセスツールバーで、よく使う色をダイレクトに指定できるようになります。

なお、本当はクイックアクセスツールバーではなくショートカットキーでマクロを実行させたかったのですが、どうやらPower Pointでは簡単ではないようです。

１．マクロを作成

Power Pointのツールバーから「開発」（表示されていない場合は、「ファイル」-「オプション」-「リボンのユーザ設定」から表示させることが可能。）を選択し、リボンから「マクロ」を選択します。

「マクロ」を選択すると以下のポップアップが表示されますので、マクロ名を新規に入力し、「作成」ボタンを押します。

すると、マクロのエディタ画面が表示されますので、文字色を赤に変えるマクロを記述します。

マクロの記述内容としては、Sub と End Subの間に以下のとおり、１行追加するだけです。

Sub 文字列を赤にする()
   ActiveWindow.Selection.TextRange.Font.Color.RGB = RGB(255, 0, 0)
End Sub

マクロの記述が終わったら、セーブしてウィンドウを閉じます。

２．クイックアクセスツールバーの設定

クイックアクセスツールバーの設定は、PowerPointのメニューバーから「ファイル」を選択すると以下の画面が表示されるので、そこから左下の「オプション」を選択します。

「オプション」ウィンドウが開いたら、ウィンドウの左側から「クイック アクセス ツール バー」を選択後、「コマンドの選択(C)」から「マクロ」を選択します。

その後、その下に先ほど作成したマクロの名前が表示されますので、それを選択し、「追加(A) >>」を押してください。

すると、選択したマクロが「クイック アクセス ツール バー」に登録されますので、右下の「OK」ボタンを押します。

３．クイック アクセス ツール バーからマクロを起動

それでは、クイック アクセス ツール バーに登録したマクロを実際に使ってみます。

まず、下の画面の通り、赤色にしたい文字を選択します。

そしてWindowsの「Alt」キー（Macの場合は「option」キー）を押すと、クイック アクセス ツール バーに割り当てられた機能のそれぞれに番号が表示されますので、該当の番号（ここでは７）のキーを押します。

すると、以下の通りマウスで選択した部分だけが赤い文字になります。

このように、文字列を選択後、キーを２回押すだけで指定した色に変更することが可能になります。

諸事情により、Outlookの受信フォルダに溜まっているメールの一覧をExcelに取り込んでみたくなったので、いろいろなサイトをみながらExcelマクロVBAを作成してみました。

なお、VBAを書き始めるまでのExcelの準備作業は以下に記載していますので、参考にしてください。（そもそもどうやったら、ExcelでVBAを書き始めることができるのかについて詳しく書いています。）

受信フォルダのメールリストを作成するVBA

１．外部ライブラリの参照設定

まず、今回のVBAは、下記の２つの外部ライブラリへの参照設定が必要です。

・Microsoft Outlook 16.0 Object Library
・Microsoft Scripting Runtime

参照設定の仕方は、VBAのエディターにて、ツールバーの[ツール]-[参照設定]を選択すると以下のように参照設定のポップアップが表示されますので、そこから選択するだけです。

２．プログラムの記述

今回作成したVBAの全体は以下の通りです。
各行の意味はコメントで記載していますので、大体わかるのではないかと思います。

' 変数宣言していない場合に警告してくれるらしい
Option Explicit

Sub outlook_mail_list_01()
    
    Dim ol_obj_df, i, n
    Dim ol_obj As Outlook.Application
    Dim ol_obj_ns, ol_obj_item As Object
    
    ' Outlookオブジェクトの生成
    Set ol_obj = CreateObject("Outlook.Application")
    
    ' メッセージ送受信規約（MAPI）を指定する
    Set ol_obj_ns = ol_obj.GetNamespace("MAPI")
    
    ' 受信トレイの指定
    Set ol_obj_df = ol_obj_ns.GetDefaultFolder(6)

    ' 受信トレイのメール件数をポップアップ表示
    ' MsgBox ol_obj_df.Items.Count
    
    ' メールを１件ずつ読み込んでExcelに出力
    For i = 1 To ol_obj_df.Items.Count
        Set ol_obj_item = ol_obj_df.Items(i)

        Cells(i, 1) = i
        Cells(i, 2) = ol_obj_item.ReceivedTime
        Cells(i, 3) = ol_obj_item.Subject
        Cells(i, 4) = ol_obj_item.SenderName
        Cells(i, 5) = ol_obj_item.SenderEmailAddress
        Cells(i, 6) = Left(ol_obj_item.Body, 100)
    
    Next

End Sub

今回は非常にシンプルなものを作成しましたが、今後、時間があれば添付ファイルをローカルのフォルダに保存していくVBAなども作成していきたいと考えています。