Shapes.AddTable，如何选择Ppt的表格不同模板。

ning84

越学越深，细节学不完。

1. Private Sub t()
   
2.     Dim s
   
3.     Dim ShpRng As ShapeRange
   
4.     Dim Shp As Shape
   
5.        Set s = Application.Selection
   
6.        Set ShpRng = s.ShapeRange
   
7.        Debug.Print TypeName(s)
   
8.        With ShpRng
   
9.             Debug.Print .Adjustments(1)
   
10.             Debug.Print .AutoShapeType
    
11.             Debug.Print .BackgroundStyle
    
12.             Debug.Print .Callout.Type
    
13.             Debug.Print .ShapeStyle
    
14.             Debug.Print .Shadow.Style
    
15.             Stop
    
16.        End With
    
17.        Stop
    
18.        Stop
    
19. End Sub
    

复制代码

Excel 2007 开发人员参考 帮助和使用方法XlAutoFilterOperator 枚举
帮助 > Excel 对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoTextStrike 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoTextOrientation 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoTextFontAlign 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法XlEnableSelection 枚举
帮助 > Excel 对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoTextCharWrap 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法XlEndStyleCap 枚举
帮助 > Excel 对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoTextCaps 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法XlTableStyleElementType 枚举
帮助 > Excel 对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoSyncVersionType 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoSyncStatusType 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoSyncEventType 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoSyncErrorType 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoSyncConflictResolutionType 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoSoftEdgeType 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoSignatureSubset 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法XlTabPosition 枚举
帮助 > Excel 对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoSharedWorkspaceTaskPriority 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoShapeType 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoShapeStyleIndex 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法XlTextParsingType 枚举
帮助 > Excel 对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoShadowStyle 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoSegmentType 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举
Excel 2007 开发人员参考 帮助和使用方法MsoScreenSize 枚举
帮助 > 2007 Microsoft Office System 对象库参考 > 2007 Microsoft Office system 的对象模型参考 > 枚举

Excel 2007 开发人员参考 帮助和使用方法XlTextQualifier 枚举
帮助 > Excel 对象模型参考 > 枚举

ning84

学习学习再学习

1. Sub CopyPasteShp()
   
2.     Dim Pres As Presentation
   
3.         Set Pres = Application.ActivePresentation
   
4.     Dim Sld As Slide, Shp As Shape, Shp1 As Shape
   
5.     Dim ShpRng As ShapeRange, tArr(3)
   
6.     Dim ii, Cc As Integer
   
7.         Set Sld = Pres.Slides(3)
   
8.         For Each Shp In Sld.Shapes
   
9.              Debug.Print Shp.Name, Shp.AutoShapeType
   
10.             
    
11.              If Shp.AutoShapeType >= 45 And Shp.AutoShapeType <= 48 Then
    
12.                      tArr(Cc) = Shp.Name
    
13.                      Cc = Cc + 1
    
14.              End If
    
15. 
    
16.         Next Shp
    
17.         Set ShpRng = Sld.Shapes.Range(tArr)
    
18.         Debug.Print ShpRng.Count
    
19.         For ii = 4 To Pres.Slides.Count
    
20.              Set Sld = Pres.Slides(ii)
    
21.              Sld.Select
    
22.              ShpRng.Copy
    
23.              Sld.Shapes.Paste
    
24.             
    
25.         Next ii
    
26. End Sub
    
27. ''
    
28. Sub CShp()
    
29.     Dim Pres As Presentation
    
30.         Set Pres = Application.ActivePresentation
    
31.     Dim Sld As Slide, Shp As Shape, Shp1 As Shape
    
32.     Dim ShpRng As ShapeRange, tArr(3)
    
33.     Dim ii, Cc As Integer
    
34.         Set Sld = Pres.Slides(3)
    
35.       For Each Sld In Pres.Slides
    
36.           For Each Shp In Sld.Shapes
    
37.              'Debug.Print Shp.Name, Shp.AutoShapeType
    
38.              If Shp.AutoShapeType >= 45 And Shp.AutoShapeType <= 48 Then
    
39.                      Shp.Fill.Transparency = 1
    
40.                      Shp.Fill.ForeColor.RGB = 0
    
41.                      Cc = Cc + 1
    
42.              End If
    
43.           Next Shp
    
44.       Next Sld
    
45.         'Set ShpRng = Sld.Shapes.Range(tArr)
    
46. 
    
47. End Sub
    

复制代码