PPT-VBA-ShapeRange

ning84

Shp.AutoShapeType

1. 
   
2. 
   
3. Sub A2()
   
4.    Dim Aa(1 To 139)
   
5.         Aa(1) = msoShapeFlowchartConnector
   
6.         Aa(2) = msoShapeFlowchartData
   
7.         Aa(3) = msoShapeFlowchartDecision
   
8.         Aa(4) = msoShapeFlowchartDelay
   
9.         Aa(5) = msoShapeFlowchartDirectAccessStorage
   
10.         Aa(6) = msoShapeFlowchartDisplay
    
11.         Aa(7) = msoShapeFlowchartDocument
    
12.         Aa(8) = msoShapeFlowchartExtract
    
13.         Aa(9) = msoShapeFlowchartInternalStorage
    
14.         Aa(10) = msoShapeFlowchartMagneticDisk
    
15.         Aa(11) = msoShapeFlowchartManualInput
    
16.         Aa(12) = msoShapeFlowchartManualOperation
    
17.         Aa(13) = msoShapeFlowchartMerge
    
18.         Aa(14) = msoShapeFlowchartMultidocument
    
19.         Aa(15) = msoShapeFlowchartOffpageConnector
    
20.         Aa(16) = msoShapeFlowchartOr
    
21.         Aa(17) = msoShapeFlowchartPredefinedProcess
    
22.         Aa(18) = msoShapeFlowchartPreparation
    
23.         Aa(19) = msoShapeFlowchartProcess
    
24.         Aa(20) = msoShapeFlowchartPunchedTape
    
25.         Aa(21) = msoShapeFlowchartSequentialAccessStorage
    
26.         Aa(22) = msoShapeFlowchartSort
    
27.         Aa(23) = msoShapeFlowchartStoredData
    
28.         Aa(24) = msoShapeFlowchartSummingJunction
    
29.         Aa(25) = msoShapeFlowchartTerminator
    
30.         Aa(26) = msoShapeFoldedCorner
    
31.         Aa(27) = msoShapeHeart
    
32.         Aa(28) = msoShapeHexagon
    
33.         Aa(29) = msoShapeHorizontalScroll
    
34.         Aa(30) = msoShapeIsoscelesTriangle
    
35.         Aa(31) = msoShapeLeftArrow
    
36.         Aa(32) = msoShapeLeftArrowCallout
    
37.         Aa(33) = msoShapeLeftBrace
    
38.         Aa(34) = msoShapeLeftBracket
    
39.         Aa(35) = msoShapeLeftRightArrow
    
40.         Aa(36) = msoShapeLeftRightArrowCallout
    
41.         Aa(37) = msoShapeLeftRightUpArrow
    
42.         Aa(38) = msoShapeLeftUpArrow
    
43.         Aa(39) = msoShapeLightningBolt
    
44.         Aa(40) = msoShapeLineCallout1
    
45.         Aa(41) = msoShapeLineCallout1AccentBar
    
46.         Aa(42) = msoShapeLineCallout1BorderandAccentBar
    
47.         Aa(43) = msoShapeLineCallout1NoBorder
    
48.         Aa(44) = msoShapeLineCallout2
    
49.         Aa(45) = msoShapeLineCallout2AccentBar
    
50.         Aa(46) = msoShapeLineCallout2BorderandAccentBar
    
51.         Aa(47) = msoShapeLineCallout2NoBorder
    
52.         Aa(48) = msoShapeLineCallout3
    
53.         Aa(49) = msoShapeLineCallout3AccentBar
    
54.         Aa(50) = msoShapeLineCallout3BorderandAccentBar
    
55.         Aa(51) = msoShapeLineCallout3NoBorder
    
56.         Aa(52) = msoShapeLineCallout4
    
57.         Aa(53) = msoShapeLineCallout4AccentBar
    
58.         Aa(54) = msoShapeLineCallout4BorderandAccentBar
    
59.         Aa(55) = msoShapeLineCallout4NoBorder
    
60.         Aa(56) = msoShapeMixed
    
61.         Aa(57) = msoShapeMoon
    
62.         Aa(58) = msoShapeNoSymbol
    
63.         Aa(59) = msoShapeNotchedRightArrow
    
64.         Aa(60) = msoShapeNotPrimitive
    
65.         Aa(61) = msoShapeOctagon
    
66.         Aa(62) = msoShapeOval
    
67.         Aa(63) = msoShapeOvalCallout
    
68.         Aa(64) = msoShapeParallelogram
    
69.         Aa(65) = msoShapePentagon
    
70.         Aa(66) = msoShapePlaque
    
71.         Aa(67) = msoShapeQuadArrow
    
72.         Aa(68) = msoShapeQuadArrowCallout
    
73.         Aa(69) = msoShapeRectangle
    
74.         Aa(70) = msoShapeRectangularCallout
    
75.         Aa(71) = msoShapeRegularPentagon
    
76.         Aa(72) = msoShapeRightArrow
    
77.         Aa(73) = msoShapeRightArrowCallout
    
78.         Aa(74) = msoShapeRightBrace
    
79.         Aa(75) = msoShapeRightBracket
    
80.         Aa(76) = msoShapeRightTriangle
    
81.         Aa(77) = msoShapeRoundedRectangle
    
82.         Aa(78) = msoShapeRoundedRectangularCallout
    
83.         Aa(79) = msoShapeSmileyFace
    
84.         Aa(80) = msoShapeStripedRightArrow
    
85.         Aa(81) = msoShapeSun
    
86.         Aa(82) = msoShapeTrapezoid
    
87.         Aa(83) = msoShapeUpArrow
    
88.         Aa(84) = msoShapeUpArrowCallout
    
89.         Aa(85) = msoShapeUpDownArrow
    
90.         Aa(86) = msoShapeUpDownArrowCallout
    
91.         Aa(87) = msoShapeUpRibbon
    
92.         Aa(88) = msoShapeUTurnArrow
    
93.         Aa(89) = msoShapeVerticalScroll
    
94.         Aa(90) = msoShapeWave
    
95.         Aa(91) = msoShapeFlowchartCollate
    
96.         Aa(92) = msoShape16pointStar
    
97.         Aa(93) = msoShape24pointStar
    
98.         Aa(94) = msoShape32pointStar
    
99.         Aa(95) = msoShape4pointStar
    
100.         Aa(96) = msoShape5pointStar
     
101.         Aa(97) = msoShape8pointStar
     
102.         Aa(98) = msoShapeActionButtonBackorPrevious
     
103.         Aa(99) = msoShapeActionButtonBeginning
     
104.         Aa(100) = msoShapeActionButtonCustom
     
105.         Aa(101) = msoShapeActionButtonDocument
     
106.         Aa(102) = msoShapeActionButtonEnd
     
107.         Aa(103) = msoShapeActionButtonForwardorNext
     
108.         Aa(104) = msoShapeActionButtonHelp
     
109.         Aa(105) = msoShapeActionButtonHome
     
110.         Aa(106) = msoShapeActionButtonInformation
     
111.         Aa(107) = msoShapeActionButtonMovie
     
112.         Aa(108) = msoShapeActionButtonReturn
     
113.         Aa(109) = msoShapeActionButtonSound
     
114.         Aa(110) = msoShapeArc
     
115.         Aa(111) = msoShapeBalloon
     
116.         Aa(112) = msoShapeBentArrow
     
117.         Aa(113) = msoShapeBentUpArrow
     
118.         Aa(114) = msoShapeBevel
     
119.         Aa(115) = msoShapeBlockArc
     
120.         Aa(116) = msoShapeCan
     
121.         Aa(117) = msoShapeChevron
     
122.         Aa(118) = msoShapeCircularArrow
     
123.         Aa(119) = msoShapeCloudCallout
     
124.         Aa(120) = msoShapeCross
     
125.         Aa(121) = msoShapeCube
     
126.         Aa(122) = msoShapeCurvedDownArrow
     
127.         Aa(123) = msoShapeCurvedDownRibbon
     
128.         Aa(124) = msoShapeCurvedLeftArrow
     
129.         Aa(125) = msoShapeCurvedRightArrow
     
130.         Aa(126) = msoShapeCurvedUpArrow
     
131.         Aa(127) = msoShapeCurvedUpRibbon
     
132.         Aa(128) = msoShapeDiamond
     
133.         Aa(129) = msoShapeDonut
     
134.         Aa(130) = msoShapeDoubleBrace
     
135.         Aa(131) = msoShapeDoubleBracket
     
136.         Aa(132) = msoShapeDoubleWave
     
137.         Aa(133) = msoShapeDownArrow
     
138.         Aa(134) = msoShapeDownArrowCallout
     
139.         Aa(135) = msoShapeDownRibbon
     
140.         Aa(136) = msoShapeExplosion1
     
141.         Aa(137) = msoShapeExplosion2
     
142.         Aa(138) = msoShapeFlowchartAlternateProcess
     
143.         Aa(139) = msoShapeFlowchartCard
     
144.      Dim Pres As Presentation
     
145.          Set Pres = Application.ActivePresentation
     
146.      Dim Sld As Slide, Shp As Shape
     
147.          Set Sld = Pres.Slides(1)
     
148.          Set Shp = Sld.Shapes(1)
     
149.          For ii = 1 To 139
     
150.              Shp.AutoShapeType = Aa(ii)
     
151.              Shp.Line.Weight = 0.5
     
152.              Stop
     
153.          Next ii
     
154. End Sub
     

复制代码

ning84

ning84 发表于 2023-12-7 20:09
Shp.AutoShapeType

MsoAutoShapeType 枚举
指定 AutoShape 对象的形状类型。
名称 值 描述
msoShape16pointStar 94 十六角星。
msoShape24pointStar 95 二十四角星。
msoShape32pointStar 96 三十二角星。
msoShape4pointStar 91 四角星。
msoShape5pointStar 92 五角星。
msoShape8pointStar 93 八角星。
msoShapeActionButtonBackorPrevious 129 “后退”或“上一个”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonBeginning 131 “开始”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonCustom 125 不带默认图片或文本的按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonDocument 134 “文档”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonEnd 132 “结束”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonForwardorNext 130 “前进”或“下一个”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonHelp 127 帮助按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonHome 126 “主页”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonInformation 128 “信息”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonMovie 136 “影片”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonReturn 133 “返回”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonSound 135 “声音”按钮。支持鼠标单击和鼠标移过操作。
msoShapeArc 25 弧形。
msoShapeBalloon 137 气球。
msoShapeBentArrow 41 带 90 度圆角的箭头。  
msoShapeBentUpArrow 44 带 90 度直角的箭头。默认情况下上指。
msoShapeBevel 15 凹凸效果。
msoShapeBlockArc 20 空心弧。
msoShapeCan 13 圆柱形。
msoShapeChevron 52 V 形。
msoShapeCircularArrow 60 带 180 度圆角的箭头。
msoShapeCloudCallout 108 云形标注。
msoShapeCross 11 十字形。
msoShapeCube 14 立方。
msoShapeCurvedDownArrow 48 上弧形箭头。
msoShapeCurvedDownRibbon 100 下凸弯带形横幅。
msoShapeCurvedLeftArrow 46 右弧形箭头。
msoShapeCurvedRightArrow 45 左弧形箭头。
msoShapeCurvedUpArrow 47 下弧形箭头。
msoShapeCurvedUpRibbon 99 上凸弯带形。
msoShapeDiamond 4 菱形。
msoShapeDonut 18 环形。
msoShapeDoubleBrace 27 双大括号。
msoShapeDoubleBracket 26 双括号。
msoShapeDoubleWave 104 双波形。
msoShapeDownArrow 36 下箭头。
msoShapeDownArrowCallout 56 带下箭头的标注。
msoShapeDownRibbon 98 中心区域位于弯带末端下方的弯带形。
msoShapeExplosion1 89 爆炸形。
msoShapeExplosion2 90 爆炸形。
msoShapeFlowchartAlternateProcess 62 其他过程流程图符号。
msoShapeFlowchartCard 75 资料卡流程图符号。
msoShapeFlowchartCollate 79 对照流程图符号。
msoShapeFlowchartConnector 73 联系流程图符号。
msoShapeFlowchartData 64 数据流程图符号。
msoShapeFlowchartDecision 63 决策流程图符号。
msoShapeFlowchartDelay 84 延期流程图符号。
msoShapeFlowchartDirectAccessStorage 87 磁鼓流程图符号。
msoShapeFlowchartDisplay 88 显示流程图符号。
msoShapeFlowchartDocument 67 文档流程图符号。
msoShapeFlowchartExtract 81 摘录流程图符号。
msoShapeFlowchartInternalStorage 66 内部贮存流程图符号。
msoShapeFlowchartMagneticDisk 86 磁盘流程图符号。
msoShapeFlowchartManualInput 71 手动输入流程图符号。
msoShapeFlowchartManualOperation 72 手动操作流程图符号。
msoShapeFlowchartMerge 82 合并流程图符号。
msoShapeFlowchartMultidocument 68 多文档流程图符号。
msoShapeFlowchartOffpageConnector 74 离页连接符流程图符号。
msoShapeFlowchartOr 78 “或者”流程图符号。
msoShapeFlowchartPredefinedProcess 65 预定义过程流程图符号。
msoShapeFlowchartPreparation 70 准备流程图符号。
msoShapeFlowchartProcess 61 过程流程图符号。
msoShapeFlowchartPunchedTape 76 资料带流程图符号。
msoShapeFlowchartSequentialAccessStorage 85 磁带流程图符号。
msoShapeFlowchartSort 80 排序流程图符号。
msoShapeFlowchartStoredData 83 库存数据流程图符号。
msoShapeFlowchartSummingJunction 77 汇总连接流程图符号。
msoShapeFlowchartTerminator 69 终止流程图符号。
msoShapeFoldedCorner 16 折角形。
msoShapeHeart 21 心形。
msoShapeHexagon 10 六边形。
msoShapeHorizontalScroll 102 横卷形。
msoShapeIsoscelesTriangle 7 等腰三角形。
msoShapeLeftArrow 34 左箭头。
msoShapeLeftArrowCallout 54 带左箭头的标注。
msoShapeLeftBrace 31 左大括号。
msoShapeLeftBracket 29 左括号。
msoShapeLeftRightArrow 37 左右双向箭头。
msoShapeLeftRightArrowCallout 57 带左右双向箭头的标注。
msoShapeLeftRightUpArrow 40 左右上三向箭头。
msoShapeLeftUpArrow 43 左上双向箭头。
msoShapeLightningBolt 22 闪电形。
msoShapeLineCallout1 109 带边框和水平标注线的标注。
msoShapeLineCallout1AccentBar 113 带水平强调线的标注。
msoShapeLineCallout1BorderandAccentBar 121 带边框和水平强调线的标注。
msoShapeLineCallout1NoBorder 117 带水平线的标注。
msoShapeLineCallout2 110 带对角直线的标注。
msoShapeLineCallout2AccentBar 114 带对角标注线和强调线的标注。
msoShapeLineCallout2BorderandAccentBar 122 带边框、对角直线和强调线的标注。
msoShapeLineCallout2NoBorder 118 不带边框和对角标注线的标注。
msoShapeLineCallout3 111 带倾斜线的标注。
msoShapeLineCallout3AccentBar 115 带倾斜标注线和强调线的标注。
msoShapeLineCallout3BorderandAccentBar 123 带边框、倾斜标注线和强调线的标注。
msoShapeLineCallout3NoBorder 119 不带边框和倾斜标注线的标注。
msoShapeLineCallout4 112 带 U 型标注线段的标注。
msoShapeLineCallout4AccentBar 116 带强调线和 U 型标注线段的标注。
msoShapeLineCallout4BorderandAccentBar 124 带边框、强调线和 U 型标注线段的标注。
msoShapeLineCallout4NoBorder 120 不带边框和 U 型标注线段的标注。
msoShapeMixed -2 只返回值，表示其他状态的组合。  
msoShapeMoon 24 新月形。
msoShapeNoSymbol 19 禁止符。
msoShapeNotchedRightArrow 50 燕尾形右箭头。
msoShapeNotPrimitive 138 不支持。
msoShapeOctagon 6 八边形。
msoShapeOval 9 椭圆形。
msoShapeOvalCallout 107 椭圆形标注。
msoShapeParallelogram 2 平行四边形。
msoShapePentagon 51 五边形。
msoShapePlaque 28 缺角矩形。
msoShapeQuadArrow 39 四向箭头。
msoShapeQuadArrowCallout 59 带四向箭头的标注。
msoShapeRectangle 1 矩形。
msoShapeRectangularCallout 105 矩形标注。
msoShapeRegularPentagon 12 五边形。
msoShapeRightArrow 33 右箭头。
msoShapeRightArrowCallout 53 带右箭头的标注。
msoShapeRightBrace 32 右大括号。
msoShapeRightBracket 30 右括号。
msoShapeRightTriangle 8 直角三角形。
msoShapeRoundedRectangle 5 圆角矩形。
msoShapeRoundedRectangularCallout 106 圆角矩形标注。
msoShapeSmileyFace 17 笑脸。
msoShapeStripedRightArrow 49 尾部带条纹的右箭头。
msoShapeSun 23 太阳。
msoShapeTrapezoid 3 梯形。
msoShapeUpArrow 35 上箭头。
msoShapeUpArrowCallout 55 带上箭头的标注。
msoShapeUpDownArrow 38 上下双向箭头。
msoShapeUpDownArrowCallout 58 带上下双向箭头的标注。
msoShapeUpRibbon 97 中心区域位于弯带末端上方的弯带形横幅。
msoShapeUTurnArrow 42 U 型箭头。
msoShapeVerticalScroll 101 竖卷形。
msoShapeWave 103 波形。