学习FillFormat.PresetGradientType知道枚举和属性的概念

ning84

PowerPoint) (FillFormat.PresetGradientType 屬性 | Microsoft Learn  https://learn.microsoft.com/zh-h ... .presetgradienttype、

msoGradientBrass

msoGradientCalmWater

msoGradientChrome

msoGradientChromeII

msoGradientDaybreak

msoGradientDesert

msoGradientEarlySunset

msoGradientFire

msoGradientFog

msoGradientGold

msoGradientGoldII

msoGradientHorizon

msoGradientLateSunset

msoGradientMahogany

msoGradientMoss

msoGradientNightfall

msoGradientOcean

msoGradientParchment

msoGradientPeacock

msoGradientRainbow

msoGradientRainbowII

msoGradientSapphire

msoGradientSilver

msoGradientWheat

msoPresetGradientMixed MsoPresetGradientType 枚举 (Microsoft.Office.Core) | Microsoft Learn  https://learn.microsoft.com/zh-c ... ype?view=office-pia msoGradientBrass 20 铜黄色渐变。 msoGradientCalmWater 8 心如止水渐变。 msoGradientChrome 21 铬色渐变。 msoGradientChromeII 22 铬色 II 渐变。 msoGradientDaybreak 4 雨后初晴渐变。 msoGradientDesert 6 漫漫黄沙渐变。 msoGradientEarlySunset 1 红日西斜渐变。 msoGradientFire 9 熊熊火焰渐变。 msoGradientFog 10 薄雾浓云渐变。 msoGradientGold 18 金色年华渐变。 msoGradientGoldII 19 金色年华 II 渐变。 msoGradientHorizon 5 极目远眺渐变。 msoGradientLateSunset 2 金乌坠地渐变。 msoGradientMahogany 15 红木渐变。 msoGradientMoss 11 茵茵绿原渐变。 msoGradientNightfall 3 暮霭沉沉渐变。 msoGradientOcean 7 碧海青天渐变。 msoGradientParchment 14 羊皮纸渐变。 msoGradientPeacock 12 孔雀开屏渐变。 msoGradientRainbow 16 彩虹出岫渐变。 msoGradientRainbowII 17 彩虹出岫 II 渐变。 msoGradientSapphire 24 宝石蓝渐变。 msoGradientSilver 23 银波荡漾渐变。 msoGradientWheat 13 麦浪滚滚渐变。 msoPresetGradientMixed -2 混和渐变。

处理形状（图形对象） | Microsoft Learn  https://learn.microsoft.com/zh-c ... pes-drawing-objects

• [color=var(--theme-hyperlink)]设置形状的属性
• [color=var(--theme-hyperlink)]同时对多个形状应用属性或方法
• [color=var(--theme-hyperlink)]对 ShapeRange 集合应用属性或方法
• [color=var(--theme-hyperlink)]遍历 Shapes 或 ShapeRange 集合
• [color=var(--theme-hyperlink)]在形状区域中对齐、分布、组合形状
  

形状（图形对象）由三种不同的对象表示：Shapes 集合、ShapeRange 集合和 Shape 对象。 一般而言， Shapes 集合可用于创建形状和遍历幻灯片上的所有形状； Shape 对象可用于修改单个形状； ShapeRange 集合可用于修改多个形状，就像在用户界面中处理多个选定形状一样。

设置形状的属性

形状的许多格式属性不是由直接应用于 Shape 或 ShapeRange 对象的属性设置的。 而相关的形状属性在第二级对象内进行组合，例如 FillFormat 对象，其中包含了与形状填充相关的所有属性；又如 LinkFormat 对象，其中包含了链接的 OLE 对象特有的所有属性。 要设置形状的属性，必须先返回代表相关形状属性集的对象，然后设置该返回的对象的属性。 例如，使用 Fill 属性返回 FillFormat 对象，然后设置 FillFormat 对象的 ForeColor 属性，从而设置指定形状的前景填充色，如以下示例所示。

[backcolor=var(--theme-code-header)][size=0.8]VB复制[color=var(--theme-success-invert) !important][backcolor=var(--theme-success-base) !important][size=1.125]

Set myDocument = ActivePresentation.Slides(1)myDocument.Shapes(1).Fill.ForeColor.RGB = RGB(255, 0, 0)

ning84

FillFormat.PresetTexture 属性 (PowerPoint) | Microsoft Learn  https://learn.microsoft.com/zh-c ... ormat.presettexture

PresetTexture 属性的值可以是其中一个 MsoPresetTexture 常量。

[size=0.875em]展开表

msoPresetTextureMixed

msoTextureBlueTissuePaper

msoTextureBouquet

msoTextureBrownMarble

msoTextureCanvas

msoTextureCork

msoTextureDenim

msoTextureFishFossil

msoTextureGranite

msoTextureGreenMarble

msoTextureMediumWood

msoTextureNewsprint

msoTextureOak

msoTexturePaperBag

msoTexturePapyrus

msoTextureParchment

msoTexturePinkTissuePaper

msoTexturePurpleMesh

msoTextureRecycledPaper

msoTextureSand

msoTextureStationery

msoTextureWalnut

msoTextureWaterDroplets

msoTextureWhiteMarble

msoTextureWovenMat

1. Sub lll()
   
2.   Dim ShpRng As ShapeRange
   
3.       Set ShpRng = Application.ActiveWindow.Selection '.ShapeRange
   
4.       With ShpRng
   
5.            Debug.Print .Name
   
6.            Debug.Print .Fill.PresetGradientType
   
7.            .Select
   
8.            .Fill.PresetGradient msoGradientFromCenter, 1, msoGradientDaybreak
   
9.            Debug.Print .Fill.PresetGradientType
   
10.       End With
    
11. End Sub

复制代码