VBA Bilder anzeigen Funktion
24.03.2021 18:08:12
Ayhan
bin selber ein Anfänger in VBA, aber bin begeistert davon was alles möglich ist.
Ich würde Bilderlinks in Excel als Bilder daneben in der Zelle angezeigt bekommen.
Die Bilder sollen 50% herunterskaliert werden und die Zellengröße soll dementsprechend angepasst sein.
Wenn ich die Funkion InsertPic dann aufrufen und eine Zelle mit den Link wähle.
Dann lädt er das Bild aber passt nicht die Zellengröße an.
Sowie wenn ich die Funktion runterziehe und auf andere Zellen anwenden wird das vorherige Bild mit angezeigt. Was mache ich das falsch? Könnte mir jemand dabei helfen?
Viele Grüße
Ayhan
Bisher habe ich diesen Code:
Function InsertPic(url As String) As String
Dim PicPath As String, Pic As Picture
PicPath = url
Set Pic = ActiveSheet.Pictures.Insert(PicPath)
With Pic
.ShapeRange.LockAspectRatio = msoTrue
.Left = ActiveCell.Left
.Top = ActiveCell.Top
.Width = 50
.Height = 50
End With
ActiveCell.RowHeight = 50
ActiveCell.ColumnWidth = 50
End Function
