使用VBA在Excel圖表中設置圖像的位置和旋轉使用VBA設置圖像的位置和旋轉

我正在開發一個簡單的Excel應用程序，用於計算給定拖曳力和推進力的力矩平衡時船的旋轉角度。我想以圖形方式顯示結果，如下圖所示。使用VBA在Excel圖表中設置圖像的位置和旋轉使用VBA設置圖像的位置和旋轉

我可以得出一個簡單的畫線和黃色顯示左側圖像中他們在圖表中的位置，但我想有一條船的漂亮的圖片來代替。

同樣的原則適用於只顯示旋轉的右手圖像。

爲此，我想了解如何訪問圖像的句柄並使用VBA宏設置其位置和旋轉角度。

謝謝你的幫助。

來源

2016-09-22 Amitava

這裏是我能夠旋轉圖像的快速測試。

的圖像（旋轉到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度）：

來源

2016-09-22 20:51:11 PeterT

謝謝@PeterT，它的工作。無論如何，我可以知道哪些項目編號代表哪個圖像，因爲我在工作表中有多個圖像。無論如何，我可以給他們分配名稱，並使用該名稱？另外，有沒有一種方法可以選擇旋轉點，因爲當前圖形圍繞中心旋轉。 – Amitava

[Shape.Rotation屬性文檔]（https://msdn.microsoft.com/en-us/library/office/ff744648.aspx）描述了有關Z軸的旋轉。所以旋轉點固定在圖像的中心點。您當然可以爲圖像分配名稱，甚至可以在每個圖像的VBA代碼中更好地使用描述性變量名稱。 – PeterT

使用VBA在Excel圖表中設置圖像的位置和旋轉使用VBA設置圖像的位置和旋轉

回答

相關問題