msoPictureGrayscale

ning84

MsoPictureColorType 枚举

指定应用于图片的颜色转换设置。

名称	值	描述
msoPictureAutomatic	1	默认颜色转换。
msoPictureBlackAndWhite	3	黑白转换。
msoPictureGrayscale	2	灰度转换。
msoPictureMixed	-2	混和转换。
msoPictureWatermark	4	水印转换。

使用vba批量修改ppt公式颜色  http://www.360doc.com/content/14/0630/17/3353565_391012449.shtml

1. Sub DD()
   
2.     Dim Pres As Presentation
   
3.         Set Pres = Application.ActivePresentation
   
4.     Dim Slds As Slides
   
5.         Set Slds = Pres.Slides
   
6.     Dim Shp As Shape, Sld As Slide
   
7.         For Each Sld In Slds
   
8.              Debug.Print Sld.Name
   
9.              For Each Shp In Sld.Shapes
   
10.                   Debug.Print Shp.Name,
    
11.                   Debug.Print Shp.PictureFormat.ColorType
    
12.                   
    
13.              Next Shp
    
14.         Next Sld
    
15. End Sub
    

复制代码

ning84

MsoShapeType 枚举 (Office)

• 项目
• 04/07/2023
• 8 个参与者
  

                                  反馈          

本文内容指定形状的类型或形状范围。

名称

值

Description

mso3DModel303D 模型
msoAutoShape1自选图形
msoCallout2标注
msoCanvas20画布
msoChart3图表
msoComment4评论
msoContentApp27内容 Office 加载项
msoDiagram 21图
msoEmbeddedOLEObject7 嵌入式 OLE 对象
msoFormControl8 窗体控件
msoFreeform5任意多边形
msoGraphic28图形
msoGroup6组
msoIgxGraphic24SmartArt 图形
msoInk22墨迹
msoInkComment23墨迹批注。
msoLine9 折线图
msoLinked3DModel31链接的 3D 模型
msoLinkedGraphic29链接的图形
msoLinkedOLEObject10链接 OLE 对象。
msoLinkedPicture11链接图片。
msoMedia16媒体
msoOLEControlObject12 OLE 控件对象。
msoPicture13图片
msoPlaceholder14占位符
msoScriptAnchor18 脚本定位标记。
msoShapeTypeMixed-2混和形状类型。
msoSlicer25切片器
msoTable19表格
msoTextBox17 文本框。
msoTextEffect15文本效果。
msoWebVideo26Web 视频示例

1. Sub DD()
   
2.     Dim Pres As Presentation
   
3.         Set Pres = Application.ActivePresentation
   
4.     Dim Slds As Slides
   
5.         Set Slds = Pres.Slides
   
6.     Dim Shp As Shape, Sld As Slide
   
7.         For Each Sld In Slds
   
8.              Debug.Print Sld.Name
   
9.              For Each Shp In Sld.Shapes
   
10.                   Debug.Print Shp.Name, Shp.Type
    
11.                   If Shp.Type = msoPicture Then
    
12.                        Debug.Print Shp.PictureFormat.ColorType
    
13.                        Shp.PictureFormat.ColorType = msoPictureBlackAndWhite
    
14.                        Stop
    
15.                        Shp.PictureFormat.ColorType = msoPictureAutomatic
    
16.                        Stop
    
17.                        Shp.PictureFormat.ColorType = msoPictureWatermark
    
18.                        Stop
    
19.                   End If
    
20.              Next Shp
    
21.         Next Sld
    
22. End Sub
    
23. 
    

复制代码

本示例浏览活动演示文稿中所有幻灯片的所有形状，并将所有链接的 Microsoft Excel 工作表设为手动更新。

Visual Basic for Applications
For Each sld In ActivePresentation.Slides
    For Each sh In sld.Shapes
        If sh.Type = msoLinkedOLEObject Then
            If sh.OLEFormat.ProgID = "Excel.Sheet" Then
                sh.LinkFormat.AutoUpdate = ppUpdateOptionManual
            End If
        End If
    Next
Next