Question

我尝试做的事情直观简单，但我不确定如何在Excel中执行此操作。我有一个飞机飞行路径，我正在密谋。飞机有一个初始航向。现在，我在Excel图上绘制了飞机的初始位置，并以飞机的小图片作为标记。这看起来不错，但我真的想根据标题旋转该图像。

有没有办法在Excel中动态旋转标记？

如果没有，是否有其他方式可以动态旋转图像，或者根据单元格的值有条件地显示图像？

我正在使用Excel 2010.

Answer 1

我不知道你是否可以直接旋转标记，但是你可以绕过添加代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Set pts = Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1).Points

    For i = 1 To pts.Count
        ActiveSheet.Shapes.Range(Array("Picture 3")).Select
        Selection.ShapeRange.Rotation = Range("C" & i + 1).Value
        Selection.Copy
        ActiveSheet.ChartObjects("Chart 2").Activate
        ActiveChart.SeriesCollection(1).Select
        ActiveChart.SeriesCollection(1).Points(i).Select
        ActiveChart.SeriesCollection(1).Points(i).Paste
    Next
End Sub

在变更事件中 Picture3 是您要旋转的图片（插入图纸中）。从C列开始，您可以获得旋转角度每次更改图片的值并将其插入标记时，宏都会旋转代码应放在您拥有图表的工作表内，在更改事件中。打开VBA ALT + F11并双击Sheet1（例如）。粘贴代码...或从组合选择左侧的工作表和右侧的更改。

Excel绘制图像，根据单元格值旋转

1 个答案: