2

チャートが入ったシートがあります。別のサブを使用して別のグラフを作成しており、最初のグラフの下に配置したいと考えています。

.Top または .Left を使用してチャートの位置を設定する方法は知っていますが、最初のチャートの位置を取得する方法がわかりません。助言がありますか？

私は試した：

Activesheet.ChartObjects(2).Top = Activesheet.ChartObjects(1).Top

--> これは問題なく機能しますが、チャートが重なっています。最後の ".Top" を ".Bottom" に置き換える必要がありますが、".Bottom" は受け入れられません (実際、最適には、最初のチャートの下部に少し隙間を空けて配置したいと考えています)。

簡単に聞こえますが、なかなかできません。

ありがとう、アル

4

1 に答える 1

2

これはあなたがしようとしていることですか？

Option Explicit

Sub Sample()
    Dim C1CO As ChartObject, C2CO As ChartObject

    Set C1CO = ActiveSheet.ChartObjects("Chart 1")
    Set C2CO = ActiveSheet.ChartObjects("Chart 2")

    With C2CO
        .Top = C1CO.Top + C1CO.Height + 10
        .Left = C1CO.Left
    End With
End Sub
于 2012-05-01T16:47:06.890 に答える