VBA 단추는 이동할 수 있습니까?

Question

VBA에 버튼을 추가 할 때 벽에 부딪 히고 있습니다.

잠재적으로 행이 확장되거나 행이 추가 될 수있는 스프레드 시트가 있습니다. 누군가가에 위의 행을 추가하는 경우 지금, 나는 매크로 (이 버튼을 클릭하면, 즉, 세 가지 이상의 버튼 아래에 표시)와 버튼을 추가하는 방법을 알고있는 유일한 방법은,

With ActiveSheet.CheckBoxes.Add(185, 464, 72, 18) 
    .Name = "firstcheckbox" 
    .Caption = "CLICK ME" 
End With 

그러나 좌표 시스템입니다 버튼 만들기 버튼을 클릭하기 전에 모양이 더 이상 좋지 않으며 3 개의 버튼이 내가 원하는 것보다 높게 표시됩니다.

저는 이것을 연구하려고 애쓰는 두뇌를 깨뜨 렸습니다. 거기에 좌표 대신 셀을 사용하여 이러한 단추를 만들 수있는 확실한 방법이있어 위에서 추가 한 행의 수를 중요하게 생각하지 않아도됩니까?

With ActiveSheet.CheckBoxes.Add.Range("C6") 
    .Name = "firstcheckbox" 
    .Caption = "CLICK ME" 
End With 

또는 이와 비슷한 내용이 있습니까? 아니면 좌표계로 제한됩니까?

도움이 될 것입니다.

Answer 1

는 그때 Checkboxes.Add로 전달의 범위에서 Left 및 Top 속성을 가져올 :

With ActiveSheet.CheckBoxes.Add(Range("C6").Left, Range("C6").Top, 72, 18) 
    .Name = "firstcheckbox" 
    .Caption = "CLICK ME" 
End With