[VBA] プロットエリアに縦線を引く:Excel VBA

散布図に対角線を引くの派生版です。

グラフのプロットエリアに縦線を引くマクロです。

通常は、散布図での使用となりますが、他のグラフでも値を正しく指定できれば、思ったとおりの動作が可能です。

プロットエリアに縦線を引くマクロ


Sub Line_PA2()
'
' プロットエリアに縦線 Macro
' マクロ記録日 : 2005/04/05 ユーザー名 : uzumaki7
'
Dim PIH As Single, PIW As Single, PIT As Single, PIL As Single
Dim SetScale As Single, MaxnScale As Single, MinScale As Single

On Error GoTo ErrorHandler

If ActiveChart Is Nothing Then

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

Exit Sub
Else
SetScale = InputBox("値を入力してください")
If StrPtr(SetScale) = 0 Then
Exit Sub
End If
End If

With ActiveChart
With .Axes(xlCategory)
MinScale = .MinimumScale
MaxScale = .MaximumScale
End With
With .PlotArea
PIH = .InsideHeight
PIW = .InsideWidth
'プロットエリアの線の太さ分
PIT = .InsideTop - 0.25
PIL = .InsideLeft - 0.25
End With
End With

ActiveChart.Shapes.AddLine((SetScale - MinScale) / (MaxScale - MinScale) * PIW + PIL, _
PIT + PIH, _
(SetScale - MinScale) / (MaxScale - MinScale) * PIW + PIL, _
PIT).Select

ErrorHandler:

Exit Sub

End Sub

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

メールアドレス:

ホームページアドレス:

コメント:

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

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