#Excel VBA > ändern eines Bildes in einem Event

Public Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    SetPicture Image1

End Sub

Private Sub SetPicture(imgObject As Image)

    MsgBox iPicCnt

  Dim sPicFile As Variant

  sPicFile = Application.GetOpenFilename _

    ("Pictures (*.gif; *.jpg; *.bmp; *.tif; *.jxr), *.gif; *.jpg; *.bmp; *.tif; *.jxr", _

    , "Bild auswählen")

   imgObject.Picture = LoadPicture(sPicFile)

   imgObject.PictureSizeMode = fmPictureSizeModeStretch

End Sub