Bilder proportional nach Höhe in Excel-D einbetten
20.03.2018 15:59:39
M
ich möchte in einer Preisliste Bilder einbetten. Bilder bekomme ich per VBA-Script rein, diese werden auch eingebettet. Allerdings werden die Bilder nur korrekt in der Höhe skaliert (wie gewünscht auf die Zellenhöhe). Ich habe aber keine Ahnung wie ich es hinbekomme, damit die Bilder auch korrekt die proportional richtige Breite bekommen... (Im Moment habe ich mal die Breite gleich der Höhe gesetzt, das ist aber nicht proportional).
Was muss ich tun? Danke für jegliche Hilfe!
Folgendes habe ich "zusammengezimmert":
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To 10000
Dim strpath As String
strpath = "H:\Bilder_" 'Pfad anpassen
If ActiveSheet.Range("B" & i).Value > 0 Then
On Error Resume Next
ActiveSheet.Range("A" & i).Select
Set Zelle = ActiveCell
If Not Dir(strpath & Range("B" & i).Value & "_1.jpg") = "" Then
Set Bild = ActiveSheet.Shapes.AddPicture(strpath & Range("B" & i).Value & "_1.jpg", _
False, True, 0, 0, 0, 0)
With Bild
.Top = Zelle.Top + 5
.Left = Zelle.Left + 5
.Height = Zelle.Height - 10
.Width = .Height
.Placement = 1
End With
End If
End If
Next
End Sub
Anzeige