使用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度):

在这里输入图像说明