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

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

【アイカツフレンズ!】フレンズスカウト(友希あいね)に参加しました。前のページ

[Win32 API]PowerPointマクロにショートカットキーを割り当てる。次のページ

関連記事

  1. Excel

    esp@cenetが公開しているPDF公報をダウンロードするVBAマクロ

    esp@cenet(Espacenet)が公開しているRESTfulな…

  2. Office関連

    [Outlook]仕分けルールでスクリプト(マクロ)を実行する。

    Msdn フォーラムにあった質問関連でメモを残しておきます。…

  3. アイコン一覧

    Office 2013 アイコン一覧(M)

    ・Office 2013 アイコン一覧 NUM…

  4. Office関連

    1MBのWordファイルって何文字くらい?

    ZIP圧縮されたOOXML形式のWordファイルって1MBだと何文字分…

  5. Office関連

    [リボン・カスタマイズ]toggleButtonのオン・オフを動的に変更する。

    “リボン上のトグルボタンをマクロで押し下げすることはできないか?”、と…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP