グラフのフォントにBIZ UDゴシックを指定するマクロ

投稿者 : めだ     投稿日時 : 2024/08/02(Fri) 09:47:05     OS : Windows 11     EXCEL : Office 365

---

以下のマクロでグラフエリアのすべてのフォントを「BIZ UDゴシック」に変更したいのですが、できません。なぜか別のフォントになってしまいます。BIZ UDゴシックはマクロで指定できないのでしょうか？
理由をお分かりの方がいらっしゃれば教えてください！

Sub ChangeFontInChartArea()
    Dim cht As Chart
    Dim ser As Series

    ' グラフが選択されているかどうかを確認
    If TypeName(Selection) = "ChartObject" Or TypeName(Selection) = "ChartArea" Then
        If TypeName(Selection) = "ChartObject" Then
            Set cht = Selection.Chart
        Else
            Set cht = Selection.Parent
        End If

        ' グラフタイトルのフォントを変更
        On Error Resume Next
        If cht.HasTitle Then
            cht.ChartTitle.Format.TextFrame2.TextRange.Font.Name = "BIZ UDゴシック"
        End If
        On Error GoTo 0
        
        ' 軸タイトルのフォントを変更
        On Error Resume Next
        If cht.Axes(xlCategory, xlPrimary).HasTitle Then
            cht.Axes(xlCategory, xlPrimary).AxisTitle.Format.TextFrame2.TextRange.Font.Name = "BIZ UDゴシック"
        End If
        If cht.Axes(xlValue, xlPrimary).HasTitle Then
            cht.Axes(xlValue, xlPrimary).AxisTitle.Format.TextFrame2.TextRange.Font.Name = "BIZ UDゴシック"
        End If
        On Error GoTo 0
        
        ' 軸ラベルのフォントを変更
        On Error Resume Next
        cht.Axes(xlCategory, xlPrimary).Format.TextFrame2.TextRange.Font.Name = "BIZ UDゴシック"
        cht.Axes(xlValue, xlPrimary).Format.TextFrame2.TextRange.Font.Name = "BIZ UDゴシック"
        On Error GoTo 0
        
        ' 凡例のフォントを変更
        On Error Resume Next
        cht.Legend.Format.TextFrame2.TextRange.Font.Name = "BIZ UDゴシック"
        On Error GoTo 0
        
        ' データラベルのフォントを変更
        For Each ser In cht.SeriesCollection
            On Error Resume Next
            With ser.DataLabels.Format.TextFrame2.TextRange.Font
                .Name = "BIZ UDゴシック"
            End With
            On Error GoTo 0
        Next ser
        
        MsgBox "グラフ内のすべてのテキストのフォントが 'BIZ UDゴシック' に変更されました。"
    Else
        MsgBox "グラフを選択してください。"
    End If
End Sub

投稿者 : さんこう     投稿日時 : 2024/08/02(Fri) 10:11:46

---

＞なぜか別のフォントになってしまいます。

なぜかは存じませんが、おっしゃるとおり別のフォントになってしまいました。

で、「マクロの記録」でフォントの変更を記録してみるとこうなりました。

With Selection.Format.TextFrame2.TextRange.Font
.NameComplexScript = "BIZ UDゴシック"
.NameFarEast = "BIZ UDゴシック"
.Name = "BIZ UDゴシック"
End With

これだとフォントが変更されるので、「.NameFarEast」とかが必要なのかもしれません。

＜VBA Font.NameFarEast＞
https://www.google.com/search?q=VBA+Font.NameFarEast

投稿者 : めだ     投稿日時 : 2024/08/02(Fri) 11:37:57

---

早速どうもありがとうございます。試してみます。