【マクロ】 グラフ凡例のサイズ変更

Sub グラフ凡例のサイズ変更()

'基本とするグラフをアクティブにして実行する

Dim objChart As Object

Dim LegendLeft As Single

Dim LegendTop As Single

Dim LegendHeight As Single

Dim Lengend As Single

On Error GoTo ErrorHandler

If ActiveChart Is Nothing Then

MsgBox "アクティブなグラフがありません"

Exit Sub

End If

'アクティブチャートの凡例のサイズを取得します

With ActiveChart.Legend

LegendLeft = .Left

LegendTop = .Top

LegendHeight = .Height

legendwidth = .Width

End With

'全てのチャートの凡例サイズを上で取得した値にする

For Each objChart In ActiveSheet.ChartObjects

With objChart.Chart.Legend

.Left = LegendLeft

.Top = LegendTop

.Height = LegendHeight

.Width = legendwidth

.Format.TextFrame2.TextRange.Font.Size = 9 'フォントサイズ

End With

Next

ErrorHandler:

Exit Sub

End Sub