Betrifft: Bildimport an Zellgröße anpassen
von: Armin
Hallo,
ich importiere aus einem Verzeichnis Bilder. Nun möchte ich das importierte Bild an die Spaltenbreite anpassen. Dabei habe ich folgendes Problem mit der Umrechnung von Bildbreite zur Spaltenbreite.
Im Beispiel habe ich einen Faktor von 5.355 verwendet, welcher die Bilder schon nahe an die Spaltebreite skaliert, aber eben nicht genau. Abhängig von der Spaltenbreite ist das Bild manchmal zu breit und manchmal zu schmal.
Gibt es eine Möglichkeit (VBA-Code) um das Problem elegant zu lösen?
Hier der VBA-Code, den ich derzeit verwende.
'** Ermittlung der Spaltenbreite
varBreite = Columns("A:A").ColumnWidth
With ActiveSheet.Shapes("Picture 1")
ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = varBreite * 5.355 'Auf Spaltenbreite Skalieren
End With
Vielen Dank für euere Tipps
Armin
Betrifft: AW: Bildimport an Zellgröße anpassen
von: Hajo_Zi
Betrifft: AW: Width statt Columnwidth
von: Daniel
Betrifft: AW: Width statt Columnwidth
von: Armin
Geschrieben am: 07.01.2010 16:35:58
Prima, vielen Dank
hat funktioniert.
Armin
Betrifft: AW: Bildimport an Zellgröße anpassen
von: Tino
Geschrieben am: 07.01.2010 16:49:17
Hallo,
versuche es mal so.
With ActiveSheet.Shapes("Picture 1")
.LockAspectRatio = msoTrue
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
.Width = Columns("D:D").Width
End With
Gruß Tino