[VBA] グラフの凡例を同じ位置にする:Excel VBA

似たようなグラフなのに、判例の位置がずれていて気持ち悪い!そんなことはないでしょうか?

今回は、シート中にあるすべてのグラフの判例を同じ位置に合わせるマクロです。
使い方は、基準となるグラフをアクティブにして、マクロを実行するだけ。すべてのグラフの判例位置が、基準としたグラフの判例位置と同じになります。

グラフの判例を同じ位置にする


Sub LegendMove()
'
' 判例は、ここよ Macro
' マクロ記録日 : 2005/04/11 ユーザー名 : uzumaki7
'

'
Dim objChart As Object
Dim LegendLeft As Long
Dim LegendTop As Long
Dim LegendHeight As Long
Dim LegendWidth As Long

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
End With

Next

ErrorHandler:

Exit Sub
End Sub

posted by うずまき at 21:49 | Comment(0) | TrackBack(0) | VBA
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

この記事へのTrackBack URL
http://blog.seesaa.jp/tb/34350890
×

この広告は1年以上新しい記事の投稿がないブログに表示されております。