Bild in Image1 über Dateipfad einfügen
17.04.2018 09:49:07
Zoe401
ich habe ein Bild-Steuerelement Image1 auf meinem Tabellenblatt und möchte durch drücken auf Image1 das das Fenster "Grafik einfügen" aufgeht und ich die Datei aussuchen kann und Excel den ausgewählten Dateipfad übernimmt und das Bild in Mage1 einfügt.
Wie gehe ich da vor?
Ich habe nur was dazu gefunden wie ich ein Bild drinnen habe und durch klicken zwischen zwei Bildern hin- und her wechseln kann.
Gruß,
Zoe
Private Sub Image1_Click()
Static nextPic As Byte
If nextPic = 0 Then
Image1.Picture = LoadPicture("P:\Ablage\Bild1.jpg")
Else
Image1.Picture = LoadPicture("P:\Ablage\Bild2.jpg")
End If
' Ergibt 0 für 1 und 1 für 0
nextPic = Sgn(-nextPic) + 1
End Sub
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
_
ByVal Y As Single)
Image1.SpecialEffect = fmSpecialEffectSunken
End Sub
Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
_
ByVal Y As Single)
Image1.SpecialEffect = fmSpecialEffectRaised
End Sub