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 |
|