散布図グラフを正方形化する：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

Comments

こんな時だからこそ、生きてる内に思いっきり楽しんでおきたい…
不謹慎なんて言うなよな！いっちまったら何もできないんだから…(´・ω・｀)
http://ox1u2f7.glinds.info/

Posted by 備えあれば憂いナシ！！ at 2011年03月19日 15:57