Bilder per Makro in Kommentar einfügen

Servus ihr!
Nachdem ichs jetzt hinbekommen hab, Bilder in meinen Kommentar einzufügen, hab ich jetzt ne andere Frage - da das ca. 10000 Bilder sind, will ich mich nicht durchklicken... deshalb kam mir die Idee per Makro.
Der Makrorekorder spuckt folgendes aus:


Sub bild_einf()
' Makro2 Makro
' Makro am 02.10.2006 von Euromobil aufgezeichnet
dateiname = InputBox("Dateiname:")
Range("R2").Select
Range("R2").AddComment
Range("R2").Comment.Visible = False
Range("R2").Comment.Text Text:=""
With Selection.Font
.Name = "Tahoma"
.FontStyle = "Fett"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.BackColor.SchemeColor = 80
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Fill.UserPicture _
"H:\verzeichnis\lala.jpg"
End Sub

Ich dachte dann an sowas:


Sub Kommentar_einfuegen()
blubb = InputBox("Dateiname:")
ActiveCell.AddComment
Range(ActiveCell.Address).Select
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=""
ActiveCell.Range.Fill.UserPicture "H:\verzeichnis\lala.jpg"
End Sub

Leider funktioniert das nicht so wie gedacht... kann mir da jemand weiterhelfen?
Grüße
Chris

Hallo Chris,
Ist mir zwar schleierhaft, wie Du mit diesem Code "schneller" bist.
Bei durchschnittlicht 30 Sekunden Bearbeitungszeit pro bild (Zelle auswählen, Dateinamen eintippen) brauchst Du bei 10'000 Bildern rund 2 Wochen (40h/Woche) !!
Ist der Dateiname nicht irgendwo im Excel bereits vorhanden ?
Anyway, vielleicht so:


Sub bildInKommentar()
Dim tInpDatei As String
Dim tDir As String
tDir = "H:\verzeichnis\"
tInpDatei = InputBox("Dateiname:")
If Not (tDir = "" Or tInpDatei = "") Then
On Error Resume Next
ActiveCell.Comment.Delete
On Error GoTo 0
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=""
ActiveCell.Comment.Shape.Fill.UserPicture tDir & tInpDatei
End If
End Sub

Gruss Hansueli

Bilder per Makro in Kommentar einfügen

Forumthread: Bilder per Makro in Kommentar einfügen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial