excel - 检查椭圆形位置vba

Question

亲爱的；

我要感谢您的支持。我正在编写 VBA 宏来绘制和着色形状，当我需要根据另一个位置形状绘制形状时，我必须采取步骤，因为我需要知道如何通过名称知道形状位置谢谢你提前

Answer 1

您可以使用 Shapes 类来获取形状位置（left和top）。如果您需要它们的右侧或底部位置，请添加leftandwidth或topand height。

Sub GetShapePosition()
    Debug.Print "Left: " & ActiveSheet.Shapes("Oval 1").Left
    Debug.Print "Width: " & ActiveSheet.Shapes("Oval 1").Width
    Debug.Print "Right: " & ActiveSheet.Shapes("Oval 1").Left + ActiveSheet.Shapes("Oval 1").Width
    
    Debug.Print "Top: " & ActiveSheet.Shapes("Oval 1").Top
    Debug.Print "Height: " & ActiveSheet.Shapes("Oval 1").Height
    Debug.Print "Bottom: " & ActiveSheet.Shapes("Oval 1").Top + ActiveSheet.Shapes("Oval 1").Width
End Sub