使用VBA在Excel图表中设置图像的位置和旋转

Question

我正在开发一个简单的excel应用程序，使用给定的牵引力和推进力的力矩平衡来计算船的旋转角度。我想以图形方式显示结果，如下图所示。

我可以绘制一个简单的线条图并将它们放在图表中，如左图所示黄色，但我希望能有一张漂亮的船图片。

同样的原则适用于只显示旋转的右手图像。

为此，我想学习如何使用VBA宏访问图像的句柄并设置其位置和旋转。

感谢您的帮助。

Answer 1

这是一个快速测试，我可以旋转图像。

图像（旋转到0度）：

测试代码：

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度）：