Supportnet / Forum / Tabellenkalkulation

Hallo an ALLE! Ich benötige Eure Hilfe! Ich möchte einen Artikelkatalog erstellen. Zu jedem Artikel möchte ich auch ein Foto in die Excel Datei mit einstellen. Da aber dann die Datei sehr gross wird ergeben sich dadurch wieder erhebliche Probleme. Ich habe es über einen Hyperlink versucht, aber dann erscheint nicht das Foto, sondern halt nur der Verweis zu der WebSeite. Was mache ich Falsch?? Wer hat eine Idee, wie ich es besser und effektiver machen kann. Ich hatte schon mal gelesen, daß man ein Foto unter Kommentar einfügen kann. Geht aber nicht bei mir??? Vielen Dank! Gruß MoWoKe

Hallo MoWoKe,

wieso funktioniert bei dir nicht das Einfügen von Fotos im Kommentar?

Fehlerhinweise???

gruss
pelle

hi mowoke :)

anbei 2 makros,das 2 laedt ein beliebiges bild und nimmt standardgroesse an,das 1 nimmt die originalgroesse des bildes an :).

gruss nighty

Sub makro01()
ActiveSheet.Pictures.Insert( _
"C:\Briefe\micha\jpg\zille.jpg" _
).Select
mywidth = Selection.Width
myheight = Selection.Height
Selection.Delete
On Error Resume Next
Range("C16").Comment.Delete
On Error GoTo 0
Range("C16").AddComment
Range("C16").Comment.Visible = False
Application.DisplayCommentIndicator = xlCommentAndIndicator
Range("C16").Comment.Shape.Select True
With Selection.ShapeRange
.Width = mywidth
.Height = myheight
End With
Selection.ShapeRange.Fill.UserPicture _
"C:\Briefe\micha\jpg\zille.jpg"
Range("C16").Select
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub



Sub makro01()
Range("C16").Select
Range("C16").AddComment
Range("C16").Comment.Visible = False
Application.DisplayCommentIndicator = xlCommentAndIndicator
Range("C16").Comment.Shape.Select True
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 _
"C:\Briefe\micha\jpg\Grafik2.jpg"
Range("C16").Select
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

hi alle

ops auf kommentar bezogen schniff

gruss nighty

• Probleme mit folien aus datei
• Verschiedene Bilddateien in Excel einfügen
• Excel-Datei in einem Exceltabellenblatt als Symbol einfügen
• link zu bildern in einer excel-datei
• Einfügen eingescannter Bilder unter Office 2007