[VBA] 散布図に対角線を引く:Excel VBA

散布図グラフを正方形化する:Excel VBAと関連です。

 散布図では傾き:1の対角線を引きたい場合があります。しかし、Excelにはそんな機能はありません。そこで、またまたVBAの登場です。

 使い方は、グラフを選択してマクロを実行するだけです。

散布図に対角線を引くマクロ


Sub Line_PA()
'
' プロットエリアに対角線 Macro
' マクロ記録日 : 2001/8/29 ユーザー名 : uzumaki7
'
Dim PIH As Single, PIW As Single, PIT As Single, PIL As Single

On Error GoTo ErrorHandler

If ActiveChart Is Nothing Then
MsgBox "アクティブなグラフがありません!"
Exit Sub
End If

With ActiveChart.PlotArea
PIH = .InsideHeight
PIW = .InsideWidth
'プロットエリアの線の太さ分
PIT = .InsideTop - 0.25
PIL = .InsideLeft - 0.25
End With

ActiveChart.Shapes.AddLine(PIL, PIT + PIH, PIL + PIW, PIT).Select

ErrorHandler:
Exit Sub
End Sub

posted by うずまき at 21:46 | Comment(1) | TrackBack(0) | VBA
この記事へのコメント

こんな時だからこそ、生きてる内に思いっきり楽しんでおきたい…
不謹慎なんて言うなよな!いっちまったら何もできないんだから…(´・ω・`)
http://ox1u2f7.glinds.info/
Posted by 備えあれば憂いナシ!! at 2011年03月19日 15:57
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

この記事へのTrackBack URL

×

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