Office: (Office 2007) Alle Bilder komprimieren via VBA

Hallo,

Ich versuche zurzeit Bilder in einem Excel Worksheet zu komprimieren aber irgenwie tut sich nichts.


Mein Ansatz:

Sub CompressAllPictures()
SendKeys "A"
SendKeys "{ENTER}"
SendKeys "B"
CommandBars.FindControl(ID:=6382).Execute
End Sub

Diesen rufe ich mit einem Button auf in einer Userform.
Es läuft zwar ohne Fehler aber es wird nichts komprimiert, bei manueller komprimierung funktioniert es aber.

Und noch eine kleine Frage, welchen Sendkey muss ich benutzen wenn ich die Komprimierung auf "Bildschirm" stellen möchte (150ppi)?

Vielen Dank schonmal *Smilie

:)

 

Hallo 1arab1,

versuch's mal so: Code:

 

Danke, aber leider funktioniert das nicht.

Er komprimiert Manuell auch nur wenn auf "Nur ausgewählte" klicke und dann auch davor diese markiere.

Also bräuchte ich ein Sendkey welcher diese auswahl ändert, und davor halt noch eine Anweisung die alle Bilder im Dokument Selektiert.

Doch bis jetzt habe ich nirgendwo den Sendkey gefunden den ich brauche.


EDIT

Code:

So funktioniert es jetzt *biggrin.gif*

 

Hallo Leute,

ich suche mir im Netz schon einen W...
kann es sein, dass es keinen Code gibt um dieses "Bilder komprimieren" ohne Sendkeys aufzurufen? *entsetzt

Oder übersehe ich etwas?
ggf. über API ?

 

Hallo Chris, michael-schwimmer.de Nr. 104

 

Hallo lupo,

*grins ist ja KLASSE
Werde mich morgen mal einlesen und versuchen dies auf meine Aufgabenstellung "umzustricken".

Ich habe schon befürchtet das es in diese Richtung gehen wird *Smilie

Danke für den Link!