发现个好东东StdPicture对象

HHAAMM

验证StdPicture对象的存在
Sub x()
    Dim P As StdPicture
    Set P = LoadPicture(ThisWorkbook.Path & "\a.jpg")
    MsgBox P.Width & " " & P.Height
    Set P = Nothing
End Sub

简单应用的例子（窗体画上个Image）
Private xX As Long, xY As Long

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
xX = x
xY = Y
End Sub

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
    If Button = 0 Then Exit Sub
    Dim dx As Long, dy As Long, ll As Long, tt As Long
    With Image1
    dy = Y - xY
    dx = x - xX
    ll = .Left
    tt = .Top
    .Move ll + dx, tt + dy
    End With
End Sub


Private Sub UserForm_Initialize()
    Dim P As StdPicture
    Set P = LoadPicture(ThisWorkbook.Path & "\a.jpg")
    Image1.Height = P.Height * 0.567 / 19.6
    Image1.Width = P.Width * 0.567 / 19.6
    Image1.Picture = P
    Set P = Nothing
End Sub

不解释，有兴趣者去查查smdn

amolin

谢谢分享。。

winland

以前在小Fisher的作品中看到对这个对象高超地运用.

飞云楼主

好东东收下了，测试看下。

gljzyp

原来这样还可以移动！

赵国辉

【移动image】-占位学习
好久没看到如此大公无私的分享了

lb_bn

学习，谢谢版主。

joforn

嗯，还有一个iPicture类

LangQueS

哈哈！虎版的大作不错！

hzqp

VBA代码还没学呢，看着就头晕。
什么时候来学习！谢谢！