VBA 插入并旋转图片：将图片插入 Excel 并旋转 90 度

以下是一个实现该功能的 VBA 代码示例：

Sub InsertImage()

    ' 选择要插入的图片文件
    Dim filePath As String
    filePath = Application.GetOpenFilename("Images (*.jpg;*.jpeg;*.png;*.bmp),*.jpg;*.jpeg;*.png;*.bmp", , "Select Image File...")
    
    ' 如果用户未选择任何文件，则退出子程序
    If filePath = "False" Then Exit Sub
    
    ' 在活动工作表中插入图片
    Dim pic As Picture
    Set pic = ActiveSheet.Pictures.Insert(filePath)
    
    ' 旋转图片 90 度
    pic.Rotation = 90

End Sub

使用该代码，您可以通过选择要插入的图片文件来将其插入到活动工作表中，并将其旋转 90 度。请注意，该代码仅支持四种常见的图像文件格式（JPG、JPEG、PNG 和 BMP）。如果您需要支持其他文件格式，请相应地修改代码中的文件筛选器。