Bilder per Makro in Kommentar einfügen
02.10.2006 13:43:51
Chris
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