使对象在VBA中向上增长

Question

我能够按照所需的方式成功地，缓慢地使物体向右生长，但是，如何使它向上生长？

这就是我能够做到的（使它向右扩展）

Private Sub growup()
If ActiveSheet.Shapes("image1").Width > 300 Then
Exit Sub
End If

For A = 1 To 200
With ActiveSheet.Shapes("image1")
.Width = .Width + 3
DoEvents

End With
Next A
end sub

还，（以防万一我将来需要）在左边？

Answer 1

使用的其他可用属性

.Height
.Top

还有

。左'<==缩进

根据@Comintern的观点，您确实需要一起调整.Top和.Height！

在此处查看形状对象的完整属性列表：

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/shape-object-excel