使用VBA设置excel图表内图像的位置和旋转度
我正在开发一个简单的Excel应用程序来计算旋转angular度的船使用给定的拖曳和推进力量的力矩平衡。 我想以graphics方式显示结果,如下图所示。
我可以绘制一张简单的线条图,并将它们放在图表中,如左边的图片所示,但是我希望有一个很好的照片。
在只显示旋转的情况下,右手图像也适用同样的原理。
为此,我想学习如何访问图像的句柄,并使用VBAmacros设置其位置和旋转。
感谢您的帮助。
这是一个快速testing,我可以旋转图像。
图像(旋转到0度):
testing代码:
Option Explicit Sub RotateBoat() Dim ws As Worksheet Dim boatPic As Shape Set ws = ActiveSheet Set boatPic = ws.Shapes.Item(1) '--- rotate the boat boatPic.Rotation = 45# End Sub
由此产生的图像(旋转到45度):