Bilder grösse anpassen und zentrieren
20.01.2020 08:59:36
Andre
Ich habe mal wieder ein Problem :(
Ich habe eine Excel Tabelle wo drei Bilder eingefügt werden. Nun möchte ich das die Bilder automatisch an der Zellegröße anpassen und sich zentrieren. Es handelt sich um verbundene Zellen. Das einfügen der Bilder klappt super mit diesen Code. Wie muss ich diesen Code umbauen.
Vielen Dank für eure Hilfe
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
Dim StBild As String
Dim InI As Integer
Dim RaBereich As Range
Dim RaZelle As Range
Dim Grafik As Shape
For InI = ActiveSheet.Shapes.Count To 1 Step -1
If Left(ActiveSheet.Shapes(InI).Name, 3) = "Pic" Then
ActiveSheet.Shapes(InI).Delete
End If
Next
If Target.Value "" Then
Set RaBereich = Range("A14,F14,H2")
For Each RaZelle In RaBereich
Application.EnableEvents = False
RaZelle.Offset(0, 1) = ""
Application.EnableEvents = True
StBild = "R:\Logistik\DatenWE\Tippi\Bilder1\Aktionsbilder\Artikel" & "\" & _
RaZelle.Value & ".jpg"
If Dir(StBild) = "" Then
Application.EnableEvents = False
RaZelle.Offset(0, 1) = "kein Bild"
Application.EnableEvents = True
Else
With ActiveSheet.Shapes.AddPicture(StBild, True, True, _
RaZelle.Left + RaZelle.Width, RaZelle.Top, 80, 100)
.Name = "Pic" & RaZelle.Value
.OnAction = "Bild_BeiKlick"
End With
End If
Next RaZelle
Set RaZelle = Nothing
End If
End If
End Sub