Question

亲爱的；

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

Answer 1

您可以使用 Shapes 类来获取形状位置（left 和 top）。如果您需要它们的右侧或底部位置，请添加 left 和 width 或 top 和 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

检查椭圆形位置vba

1 个答案: