Die Größe und ändern Sie das format mehrerer Bilder mit Excel-VBA

Ich habe ein excel-Arbeitsblatt mit einer Menge von Bildern mit unterschiedlichen Größen und Formaten. Ich möchte mit excel VBA eine Schleife durch alle Bilder in das Arbeitsblatt ein, und legen Sie jedes Bild auf die gleiche Breite (214) und den Bildtyp ändern, um ein JPEG nach dem verkleinern (halten Sie die Größe der Datei nach unten). Meine Bilder befinden sich in verschiedenen Zellen, und ich will nicht, dass die Bild-Standorte zu ändern (D. H. den Aufenthalt in der gleichen Zelle). Ich bin neu in VBA und habe Folgendes versucht, aber es funktioniert nicht. Der debugger Stoppt in der Zeile, wo ich versuche, schneiden Sie das Bild.

Sub Macro6()

Dim p As Object

Dim iCnt As Integer

    For Each p In ActiveSheet.Shapes
        p.Width = 217.44
        p.Cut
        p.PasteSpecial Format:="Picture (JPEG)", Link:=False
        iCnt = iCnt + 1
    Next p
End Sub

InformationsquelleAutor James | 2014-08-30

Schreibe einen Kommentar