Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1220to1224
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bilder verkleiner (komprimieren)

Bilder verkleiner (komprimieren)
Pepi
Hallo Excelfreaks
Ich habe eine Exceldatei mit vielen Tabellen und noch mehr Bildern, die mittlerweile auf über 15MB angewachsen ist. Vermutlich sind einzelne bilder zu gross.
Ich wollte mit dem folgenden Marko die Bilder verkleinern, doch wird bei bei jedem Bild wieder der Dialog angezeigt und ich muss Enter drücken.
Wenn ich das Häkchen für die Option "Nur für dieses Bild anwenden" entferne, wird gar nichts komprimiert.
Gibt es eine Möglichkeit, anzugeben wie gross die Bilder sein sollen, die sich in einer Schlaufe anwenden lässt.
Sub Bilder_Verkleinern()
Dim oShp As Shape
For Each oShp In ActiveSheet.Shapes
oShp.Select
Application.SendKeys "{Enter}"
Application.CommandBars.ExecuteMso "PicturesCompress"
Next
End Sub
Vielen Dank für eine gute Lösung
Pepi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bilder verkleiner (komprimieren)
19.07.2011 12:45:16
Uppe
Hallo Pepi,
versuch es mal so
Application.SendKeys "{Enter}~"
Gruß Uppe
AW: Bilder verkleiner (komprimieren)
20.07.2011 13:33:39
Pepi
Hallo Uppe
Was so ein Schwänzle ausmachen kann - vielen Dank
Pepi
Anzeige

6 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige