Bild aus Zwischenspeicher an Zellgöße anpassen
26.04.2017 20:56:37
Enrico
ich möchte per Makro aus dem Zwischenspeicher ein Bild in eine Zelle einfügen.
Bisher habe ich das folgende Makro verwendet.
Sub Bild_einfügen_und_Bildgröße_anpassen()
'Bild aus Zwischenspeicher einfügen
ActiveSheet.Paste
'abhängig von Zellposition und Zellgröße
Selection.Placement = xlMoveAndSize
'Größe formatieren :
If TypeName(Selection) = "Picture" Then 'nur wenn Grafik markiert ist :
With Selection.ShapeRange
.LockAspectRatio = False
'Breite und Höhe der Grafik bitte in Klammer hier anpassen :
.Height = Application.CentimetersToPoints(3.3)
.Width = Application.CentimetersToPoints(4.5)
End With
End If
'Bild komprimieren
Application.SendKeys "w~"
Application.CommandBars.ExecuteMso "PicturesCompress"
End Sub
Das Makro habe ich aus verschiedenen VBA Schnippseln aus dem Internet zusammen gefügt, weil ich selbst von VBA keine Ahnung habe.
Jetzt soll das Makro folgende Aufgabe mit abarbeiten:
Das Seitenverhältnis des Bildes soll nicht geändert werden und das Bild trotzdem in die Zelle passen.
Wenn am Rand der Zelle Lücken entstehen, weil z.B. ein Hochformat-Bild eingefügt wird, ist für mich i.O.
Lässt sich das per VBA umsetzen?
Ich bin für jede Hilfe dankbar.
Gruß
Enrico