excel vba图片自动压缩删除裁剪区域

在Excel VBA中，可以使用以下代码来自动压缩、删除、裁剪图片：

首先，如果要进行图片操作，需要在VBA编辑器中启用Microsoft PowerPoint和Microsoft PowerPoint对象库。在VBA编辑器中，点击"工具"，然后选择"引用"，勾选上"Microsoft PowerPoint"和"Microsoft PowerPoint对象库"，然后点击"确定"。

下面是一个示例代码，将其放置在一个按钮的点击事件中：

Sub AutoCompressDeleteCrop()

    Dim picture As Shape
    Dim slide As Slide
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    
    ' 创建一个PowerPoint应用程序对象
    Set pptApp = New PowerPoint.Application
    
    ' 创建一个新的演示文稿
    Set pptPres = pptApp.Presentations.Add
    
    ' 循环处理活动工作表中的所有图片
    For Each picture In ActiveSheet.Shapes
        
        ' 将图片复制到PowerPoint演示文稿
        Set slide = pptPres.Slides.Add(pptPres.Slides.Count + 1, ppLayoutBlank)
        picture.Copy
        slide.Shapes.Paste
        
        ' 压缩图片
        slide.Shapes(slide.Shapes.Count).PictureFormat.Compression = 80
        
        ' 删除原始图片
        picture.Delete
        
        ' 裁剪图片
        slide.Shapes(slide.Shapes.Count).PictureFormat.CropLeft = 10
        slide.Shapes(slide.Shapes.Count).PictureFormat.CropTop = 10
        slide.Shapes(slide.Shapes.Count).PictureFormat.CropRight = 10
        slide.Shapes(slide.Shapes.Count).PictureFormat.CropBottom = 10
    Next picture
    
    ' 显示PowerPoint应用程序窗口
    pptApp.Visible = True
    
    ' 清空对象
    Set pptApp = Nothing
    Set pptPres = Nothing
End Sub

这段代码将从活动工作表中的每个图片进行以下操作：
1. 将图片复制到一个新的PowerPoint演示文稿中。
2. 压缩图片的质量。
3. 删除原始的Excel图片。
4. 对图片进行裁剪。

请注意，这段代码假设只有图片对象在工作表中。如果工作表中还有其他对象，可能会引发错误。如果遇到此问题，您可以使用条件语句或循环语句来检查每个对象的类型，在必要时跳过非图片对象。