使用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）。如果您需要支持其他文件格式，请相应地修改代码中的文件筛选器