28. März 2024, 14:26
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0415
  E03: in Shape Objekt ein Bild einfügen und rausholen
 Von nene
 Am 17. Dezember 2008 um 22:52:15
 Frage Hallo,

ich habe mir einen Code geschrieben, über den ich Bilder in Kommentaren einfügen kann.

Nun habe ich aber das Problem, dass ich nicht raus bekomme, wie ich die Bilder wieder exportieren kann. Ich würde gerne einen Button im Sheet haben, über den man das Bild aus dem Kommentar wieder auf die Platte speichert. Kann mit einer helfen? Danke!
    Sub screen()


'ggf. Laufwerk und Ordner als Vorgabe setzen
ChDir "\"
ChDrive "c:\"
'Das Dialogfenster
dateiname = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.jpg),*.jpg")
If dateiname = False Then Exit Sub

ActiveCell.AddComment
ActiveCell.Comment.Shape.Fill.UserPicture dateiname

ff = FreeFile()

Open dateiname For Binary Access Read As #ff

If Input(2, #ff) <> (Chr$(&HFF) & Chr$(&HD8)) Then
Close #ff
Exit Sub
End If

strDummy = Input(2, #ff)

Do
l = Asc(Input(1, #ff))
l = l * 256 + Asc(Input(1, #ff))
S = Input(l - 2, #ff)

If c = &HC0 Or c = &HC2 Then
JPGWidth = Asc(Mid$(S, 4, 1))
JPGWidth = JPGWidth * 256 + Asc(Mid$(S, 5, 1))
JPGHeight = Asc(Mid$(S, 2, 1))
JPGHeight = JPGHeight * 256 + Asc(Mid$(S, 3, 1))
End If

If Input(1, #ff) <> Chr$(255) Then
Exit Do
End If

c = Asc(Input(1, #ff))
Loop While c <> &HD9

Close #ff

ActiveCell.Comment.Shape.Height = CStr(JPGHeight)
ActiveCell.Comment.Shape.Width = CStr(JPGWidth)
End Sub
[ VB-/VBA-Forum | Archiv 0415 | Archiv-Übersicht ]
 Antworten
E03: in Shape Objekt ein Bild einfügen und rausholen - nene 17. Dezember 2008 um 22:52:15
Re: in Shape Objekt ein Bild einfügen und rausholen - r.mueller@sz-online.de 20. Dezember 2008 um 08:09:58
Re: in Shape Objekt ein Bild einfügen und rausholen - nene 21. Dezember 2008 um 12:10:57
Re: in Shape Objekt ein Bild einfügen und rausholen - nene 21. Dezember 2008 um 12:16:38
Re: in Shape Objekt ein Bild einfügen und rausholen - r.mueller@sz-online.de 21. Dezember 2008 um 14:28:39
Re: in Shape Objekt ein Bild einfügen und rausholen - nene 21. Dezember 2008 um 15:05:28
Re: in Shape Objekt ein Bild einfügen und rausholen - nene 21. Dezember 2008 um 15:14:03

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum