Excel VBA ワークシートのグラフの左上の位置を取得、設定する-Top、Left、TopLeftCell

Excel VBAでワークシートにあるグラフの左上の位置を取得、設定する記録です。

下図はExcel2016です。

 

< スポンサーリンク >

 

構文

式.top

行1の上端からグラフの上端までの距離をポイント単位で表す倍精度浮動小数点型(Double)の値を取得、または設定します。

 

式.Left

列Aの左端からグラフの左端までの距離をポイント単位で表す倍精度浮動小数点型(Double)の値を取得、または設定します。

 

式.TopLeftCelltop

グラフの左上隅にあるセルを表すRangeオブジェクトを返します。読み取り専用です。

 

VBAグラフ位置

 

アクティブシートの1つ目のグラフの上端からワークシートの上端の距離のポイントをメッセージで表示します。

Sub test()
    MsgBox ActiveSheet.ChartObjects(1).Top
End Sub

VBAグラフ位置

VBAグラフ位置

 

アクティブシートの1つ目のグラフの左端からワークシートの左端の距離のポイントをメッセージで表示します。

Sub test()
    MsgBox ActiveSheet.ChartObjects(1).Left
End Sub

VBAグラフ位置

VBAグラフ位置

 

アクティブシートの1つ目のグラフの左上隅にあるセル番地をメッセージで表示します。

Sub test()
    MsgBox ActiveSheet.ChartObjects(1).TopLeftCell.Address
End Sub

VBAグラフ位置

VBAグラフ位置

 

アクティブシートの1つ目のグラフをワークシートの上端から100ポイント、左端から100ポイントの位置に設定します。

Sub test()
    With ActiveSheet
        .ChartObjects(1).Top = 100
        .ChartObjects(1).Left = 100
    End With
End Sub

VBAグラフ位置

VBAグラフ位置

 

アクティブシートの全てのグラフを、グラフの左上隅にかかっているセルの左上に位置を合わせます。

Sub test()
    Dim i As Long

    With ActiveSheet
        For i = 1 To .ChartObjects.Count
            .ChartObjects(i).Top = .ChartObjects(i).TopLeftCell.Top
            .ChartObjects(i).Left = .ChartObjects(i).TopLeftCell.Left
        Next i
    End With
End Sub

VBAグラフ位置

VBAグラフ位置

VBAグラフ位置

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ