用户窗体图像放大镜开发：解决“Invalid use of property”编译错误

直接编译错误原因 #

1. StdPicture是VBA内置对象，不能用CreateObject("StdPicture")创建实例，这属于无效操作。
2. 即便你写了Set newBitmap = tempBitmap，但前面错误的实例化已经导致对象状态异常，更关键的是SaveZoomedAreaToFile过程完全没实现“裁剪指定区域”的逻辑，只是复制了整张原图，根本达不到放大镜的需求。

正确实现方案 #

无需通过临时文件中转，直接用VBA的PaintPicture方法在Image2上绘制放大后的指定区域，这是更高效且简洁的方式，同时修正坐标转换逻辑，确保鼠标位置对应原图的正确区域。

修改后的完整代码 #

首先在模块顶部声明全局变量：

Dim IsMouseDown As Boolean
Const MagnificationFactor As Single = 2 ' 放大倍数，可自行调整

替换原有相关过程：

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        IsMouseDown = True
        UpdateMagnifiedView X, Y
    End If
End Sub

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If IsMouseDown Then
        UpdateMagnifiedView X, Y
    End If
End Sub

Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        IsMouseDown = False
        Image2.Picture = LoadPicture("")
    End If
End Sub

Private Sub UpdateMagnifiedView(ByVal X As Single, ByVal Y As Single)
    Dim srcX As Single, srcY As Single
    Dim srcWidth As Single, srcHeight As Single
    
    ' 计算原图中需要放大的区域坐标和尺寸
    srcWidth = Image2.Width / MagnificationFactor
    srcHeight = Image2.Height / MagnificationFactor
    ' 让鼠标位置对应放大区域的中心
    srcX = (X / Image1.Width) * Image1.Picture.Width - srcWidth / 2
    srcY = (Y / Image1.Height) * Image1.Picture.Height - srcHeight / 2
    
    ' 确保区域不超出原图范围
    If srcX < 0 Then srcX = 0
    If srcY < 0 Then srcY = 0
    If srcX + srcWidth > Image1.Picture.Width Then srcX = Image1.Picture.Width - srcWidth
    If srcY + srcHeight > Image1.Picture.Height Then srcY = Image1.Picture.Height - srcHeight
    
    ' 清空Image2并绘制放大区域
    Image2.Cls
    Image2.PaintPicture Image1.Picture, _
        0, 0, Image2.Width, Image2.Height, _
        srcX, srcY, srcWidth, srcHeight, _
        vbSrcCopy
End Sub

代码说明 #

• PaintPicture方法直接将原图的指定区域绘制到Image2上：通过最后四个参数指定原图的裁剪区域，前四个参数指定在Image2上的绘制位置和尺寸，以此实现放大效果。
• 添加边界判断，避免裁剪区域超出原图范围导致显示异常。
• 移除冗余的临时文件操作，提升运行效率。

内容的提问来源于stack exchange，提问作者Hareborn