Graue Rahmen bei Abbildungen in PowerPoint entfernen

Bei Powerpoint 2007 und Powerpoint 2010 kann es passieren, dass Grafiken (zum Beispiel png-Dateien) einen ungewollten, grauen Rahmen erhalten. Teilweise erscheint dieser Rahmen auch nur im Präsentationmodus. Der Rahmen lässt sich durch Zuschneiden der Grafik wieder entfernen. Doch wer möchte das schon manuell machen? Hier ein kleiner VBA-Quellcode:


'---------------------------------------------------------------------------------------
' Procedure : CropShp1Pixel
' Author    : tschmid
' Date      : 11.03.2011
' Purpose   : Bei allen markierten Abbildungen wird von jedem Rand ein Pixel abgeschnitten
'             Anwendungszweck: Manchmal entstehen graue Ränder beim Einfügen von Grafiken in Powerpoint
'---------------------------------------------------------------------------------------
Sub CropShp1Pixel()
    Dim shp As Shape

    On Error GoTo CropShp1Pixel_Error

    For Each shp In ActiveWindow.Selection.ShapeRange
        shp.PictureFormat.CropRight = 1
        shp.PictureFormat.CropLeft = 1
        shp.PictureFormat.CropBottom = 1
        shp.PictureFormat.CropTop = 1
    Next

CropShp1Pixel_Exit:
    On Error Resume Next

    On Error GoTo 0
    Exit Sub

CropShp1Pixel_Error:
    MsgBox Err.Description
    GoTo CropShp1Pixel_Exit
End Sub

Code eingefügt mit Syntaxhighlighter 4.14

Your rating: Keine Average: 4 (7 votes)