Office関連

選択中の図形の文字列を蛍光ペンでハイライトするPowerPointマクロ

MSDNフォーラムに「PowerPoint 2016で、マクロで選択中の図形をハイライトすると、文字列の書式が勝手に変わってしまう」といった質問がありました。

確認してみると、たしかに先頭の文字の書式が後の文字にまで反映されてしまっているようです。

Public Sub Sample()
  With ActiveWindow.Selection
    Select Case .Type
      Case ppSelectionShapes, ppSelectionText
        .TextRange2.Font.Highlight = vbYellow
    End Select
  End With
End Sub

PowerPointのバージョンが原因かもしれませんが、他のバージョンでは確認していないので分かりません。

そこで、選択している文字列を一文字ずつハイライトするように処理を変更したところ、書式が勝手に変更されなくなりました。

Public Sub HighlightShapeText()
  Dim char As Office.TextRange2
  
  With ActiveWindow.Selection
    Select Case .Type
      Case ppSelectionShapes, ppSelectionText
        For Each char In .TextRange2.Characters
          char.Font.Highlight = vbYellow
        Next
    End Select
  End With
End Sub

コードが若干長くなってしまいますが、とりあえずはこれで目的が達成できるかと思います。

関連記事

  1. Office関連

    Excelを使わずにCSVからExcelファイルに変換するPowerShellコード

    CSVファイルからExcelファイルに変換する処理を自動化したい、Ex…

  2. Office アドイン

    [Office用アプリ]マニフェストファイルをSharePointに配置する。

    今更になりますが、今回はマニフェストファイルをSharePoint上に…

  3. アイコン一覧

    Office 365アイコン(imageMso)一覧(A)

    Office 365のデスクトップ版Officeアプリケーション(Wo…

  4. Office アドイン

    YO OFFICE(Yeoman)を使ってOffice アドインのひな型を作成する方法

    Webアプリのひな型を一発で作ってくれる便利ツール「Yeoman」には…

  5. Office関連

    [Excel]別インスタンスからの貼り付け時のダイアログを非表示にする方法

    Msdn フォーラムに「excel 2010 貼り付けで警告メッセージ…

コメント

  • コメント (0)

  • トラックバックは利用できません。

  1. この記事へのコメントはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP