Hallo Harald,
ich hab ein bisschen rumexperimentiert und bin erstmal auf die selben Probleme gestoßen, wie Du. Was aber zu gehen scheint:
1. Die Bilder zunächst mal verkleinern, z.B. längste Seite 3 cm. Das muss nicht zwingen im Skript erfolgen, das sind per Stapelverarbeitung ja nur ein paar Klicks.
2. Die Zellen der Exeltabelle, wo die Bilder rein sollen. so vorbereiten, dass die verkleinerten Bilder sicher hineinpassen, also z.B. 3,5 cm x 3.5 cm. Da geht z.B. so:
Sub Quadratzelle()
'Zellengröße 3 cm im Quadrat
'Selection.RowHeight = 85
'Selection.ColumnWidth = 14.29
'Zellengröße 3,5 cm im Quadrat
Selection.RowHeight = 99.25
Selection.ColumnWidth = 16.86
'Zellengröße 4 cm im Quadrat
'Selection.RowHeight = 113.25
'Selection.ColumnWidth = 19.43
End Sub
3. Die Bilder in die Zellen einfügen.
4. Es sollte die Eigenschaft „Von Zellposition und -größe abhängig“ gesetzt werden, obgleich das anscheinend nicht in allen Fällen gegen komische Effekte beim Filtern hilft.
5. Damit die Spalte mit den Bildern beim Filtern und Sortieren der Tabelle mitgenommen wird, muss in den Zellen mit den Bildern auch Text stehe, am besten überall das selbe Zeichen.
Damit dieses Dummy-Zeichen nicht sichtbar ist, sollte die vertikale Textausrichtung auf „oben“ gesetzt werden.
Hier mal eine Beispieltabelle. Danke, dass Du Dich damit befasst.
ich hab ein bisschen rumexperimentiert und bin erstmal auf die selben Probleme gestoßen, wie Du. Was aber zu gehen scheint:
1. Die Bilder zunächst mal verkleinern, z.B. längste Seite 3 cm. Das muss nicht zwingen im Skript erfolgen, das sind per Stapelverarbeitung ja nur ein paar Klicks.
2. Die Zellen der Exeltabelle, wo die Bilder rein sollen. so vorbereiten, dass die verkleinerten Bilder sicher hineinpassen, also z.B. 3,5 cm x 3.5 cm. Da geht z.B. so:
Sub Quadratzelle()
'Zellengröße 3 cm im Quadrat
'Selection.RowHeight = 85
'Selection.ColumnWidth = 14.29
'Zellengröße 3,5 cm im Quadrat
Selection.RowHeight = 99.25
Selection.ColumnWidth = 16.86
'Zellengröße 4 cm im Quadrat
'Selection.RowHeight = 113.25
'Selection.ColumnWidth = 19.43
End Sub
3. Die Bilder in die Zellen einfügen.
4. Es sollte die Eigenschaft „Von Zellposition und -größe abhängig“ gesetzt werden, obgleich das anscheinend nicht in allen Fällen gegen komische Effekte beim Filtern hilft.
5. Damit die Spalte mit den Bildern beim Filtern und Sortieren der Tabelle mitgenommen wird, muss in den Zellen mit den Bildern auch Text stehe, am besten überall das selbe Zeichen.
Damit dieses Dummy-Zeichen nicht sichtbar ist, sollte die vertikale Textausrichtung auf „oben“ gesetzt werden.
Hier mal eine Beispieltabelle. Danke, dass Du Dich damit befasst.
Zuletzt bearbeitet: