Alle Bilder mit Makro komprimieren?
14.06.2007 10:49:58
ingotheschumann
Ich wollte meiner Freundin helfen mit einem Makro alle Bilder die sie in eine Excel Aufgabenliste einfügt automatisch zu komprimieren, da sonst die Datei zu groß wird. Ein Makro mit dem Macrorecorder funktioniert da nicht richtig, da es sich immer auf bestimmte Bilddateien bezieht. Die Bilder können sich aber ändern. Ich habe dann den "ActiveSheet.Shapes.SelectAll" Befehl eingefügt, aber auch dann funktioniert das Makro nicht.
Hier der Code:
Sub Test()
' Test Makro
' Makro am 12.06.2007 von Ingo aufgezeichnet
' ActiveSheet.Shapes("Picture 107").Select
ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.PictureFormat.Brightness = 0.5
Selection.ShapeRange.PictureFormat.Contrast = 0.5
Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
Selection.ShapeRange.PictureFormat.CropLeft = 0#
Selection.ShapeRange.PictureFormat.CropRight = 0#
Selection.ShapeRange.PictureFormat.CropTop = 0#
Selection.ShapeRange.PictureFormat.CropBottom = 0#
End Sub
Kann mir jemand helfen die richtigen Übergabeparameter zu finden, wenn das alles unabhängig von der Anzahl der Bilder und von deren Namen funktionieren soll?
merci vielmals für alle Antworten
Ingo