Excel VBA 차트 자동 모양 위쪽 왼쪽 위치

Question

Excel에서 차트가 있습니다. 나는 녹색 상자를 선택하고 아래의 매크로 실행

excelChart.Shapes.AddShape(msoShapeRectangle, 0, 0, excelChart.ChartArea.width, 15) 

:

Sub Macro6() 

    Selection.ShapeRange.Left = 0 
    Selection.ShapeRange.Top = 0 

End Sub 

나는 녹색 상자를 기대했다가 위치 할을 내가 함께 차트 모양을 추가했습니다 오렌지색 차트 영역의 왼쪽 상단을 비 춥니 다. 그러나 위에서 볼 수 있듯이 위/왼쪽 제로 좌표가 시작되기 전에 약간의 여백이있는 것으로 보입니다.

어떻게 할 수 있습니까? 구석에 그린 박스를 프로그래밍 방식으로 배치합니까?

Answer 1

IncrementLeft 및 IncrementTop을 사용해보세요.

Sub AddBox() 
    Dim cht As Chart 

    Set cht = Worksheets(1).ChartObjects(1).Chart 

    With cht.Shapes.AddShape(msoShapeRectangle, 0, 0, cht.ChartArea.Width, 15) 
     .Name = "MyShape" 
     .IncrementLeft -5 //Experiment with number to get desired effect 
     .IncrementTop -5 
    End With 
End Sub