任意角度旋转图像

在VB.NET和VBA编程中，我们可以使用相应的函数来旋转图像。本文将介绍如何以任意角度旋转图像。

VB.NET 中旋转图像

在 VB.NET 中，我们可以使用 Graphics 对象的 RotateTransform 方法来旋转图像。以下是一个样例代码：

' 导入System.Drawing命名空间
Imports System.Drawing

' 读取图像
Dim image As Image = Image.FromFile("path/to/image.jpg")

' 定义旋转角度
Dim angle As Single = 30

' 创建旋转后的图像
Dim rotatedImage As Image = New Bitmap(image.Width, image.Height)

' 画板
Using g As Graphics = Graphics.FromImage(rotatedImage)
    ' 将画板原点移到图像中心
    g.TranslateTransform(image.Width / 2, image.Height / 2)

    ' 旋转角度
    g.RotateTransform(angle)

    ' 将画板原点移回左上角
    g.TranslateTransform(-image.Width / 2, -image.Height / 2)

    ' 将原图像绘制到旋转后的图像上
    g.DrawImage(image, Point.Empty)
End Using

' 保存旋转后的图像
rotatedImage.Save("path/to/rotated-image.jpg", ImageFormat.Jpeg)

在以上代码中，我们首先通过 Image.FromFile 方法读取图像。然后定义了旋转角度，创建了一个和原图像同样尺寸的图像，和一个画板。接着，我们将画板原点移到图像中心，进行旋转，再将画板原点移回左上角，最后将原图像绘制到旋转后的图像上。最后，我们将旋转后的图像保存到文件中。

VBA 中旋转图像

在 VBA 中，我们可以使用 Graphics 与 Image 对象实现图像旋转。以下是一个样例代码：

Private Sub RotateImage(ByVal imagePath As String, ByVal outputImagePath As String, ByVal angle As Double)
    ' 读取图像
    Dim image As Image
    Set image = LoadPicture(imagePath)

    ' 创建旋转后的图像
    Dim rotatedImage As Image
    Set rotatedImage = New Bitmap(image.Width, image.Height)

    ' 画板
    Dim g As Graphics
    Set g = Graphics.FromImage(rotatedImage)

    ' 将画板原点移到图像中心
    g.TranslateTransform image.Width / 2, image.Height / 2

    ' 旋转角度
    g.RotateTransform angle

    ' 将画板原点移回左上角
    g.TranslateTransform -image.Width / 2, -image.Height / 2

    ' 将原图像绘制到旋转后的图像上
    g.DrawImage image, 0, 0

    ' 保存旋转后的图像
    SavePicture rotatedImage, outputImagePath
End Sub

以上代码使用 LoadPicture 方法读取图像，创建了一个和原图像同样尺寸的图像，和一个画板。然后，我们将画板原点移到图像中心，进行旋转，再将画板原点移回左上角，最后将原图像绘制到旋转后的图像上。最后，我们将旋转后的图像保存到文件中。

总之，在VB.NET与VBA编程中，我们可以使用相应的函数来打开、操作和保存图像。所以我们可以通过以上代码轻松地实现图像旋转。