VBA在EXCEL插入图片并旋转90度

以下是使用VBA在Excel中插入图片并旋转90度的代码：

Sub Insert_Image_Rotate_90_Degrees()

Dim imgPath As String
Dim img As Picture

'设置图片路径
imgPath = "C:\Users\UserName\Desktop\image.jpg"

'插入图片
Set img = ActiveSheet.Pictures.Insert(imgPath)

'旋转图片
img.Rotation = 90

End Sub

在代码中，首先定义了一个字符串变量imgPath，用于存储图片的路径。然后，通过Insert方法将图片插入到当前活动工作表中，并将其赋值给img变量。最后，使用Rotation属性将图片旋转90度。

请注意，上述代码中的图片路径应替换为实际的图片路径。另外，如果要将图片旋转到其他角度，只需要将Rotation属性的值更改为所需的度数即可。