PPT表格设置为无填充色 + 表格样式枚举分享

aman1516

如题，在PPT插入表格后，如何将表格背景填充设置为“无填充色”——即透明？

详见附件： 表格填充色设置.rar (43.56 KB, 下载次数: 2)

2024-9-18 13:17 上传

点击文件名下载附件

lss001

'应用样式→"无样式，网格型"

shp.Table.ApplyStyle "{5940675A-B579-460E-94D1-54222C63F5DA}", True

aman1516

lss001 发表于 2024-9-18 14:54
'应用样式→"无样式，网格型"

shp.Table.ApplyStyle "{5940675A-B579-460E-94D1-54222C63F5DA}", True

试了好多个属性方法都搞不掂，却想不到，可通过套用一个表格样式来实现，
老师不但技术功底深厚，思路也极其灵活，太厉害了！

aman1516

枚举表格样式：

1. 
   
2. Sub tblSty()    '
   
3. 
   
4. Set tbl = shp.Table
   
5. 
   
6. 'No Style, Table Grid:
   
7. tbl.ApplyStyle "{5940675A-B579-460E-94D1-54222C63F5DA}", True
   
8. 'No Style, No Grid:
   
9. tbl.ApplyStyle "{2D5ABB26-0587-4C30-8999-92F81FD0307C}", True
   
10. 
    
11. 'Themed Style 1 -Accent 1~6:
    
12. tbl.ApplyStyle "{3C2FFA5D-87B4-456A-9821-1D502468CF0F}", True
    
13. tbl.ApplyStyle "{284E427A-3D55-4303-BF80-6455036E1DE7}", True
    
14. tbl.ApplyStyle "{69C7853C-536D-4A76-A0AE-DD22124D55A5}", True
    
15. tbl.ApplyStyle "{775DCB02-9BB8-47FD-8907-85C794F793BA}", True
    
16. tbl.ApplyStyle "{35758FB7-9AC5-4552-8A53-C91805E547FA}", True
    
17. tbl.ApplyStyle "{08FB837D-C827-4EFA-A057-4D05807E0F7C}", True
    
18. 
    
19. 'Themed Style 2 - Accent 1~6
    
20. tbl.ApplyStyle "{D113A9D2-9D6B-4929-AA2D-F23B5EE8CBE7}", True
    
21. tbl.ApplyStyle "{18603FDC-E32A-4AB5-989C-0864C3EAD2B8}", True
    
22. tbl.ApplyStyle "{306799F8-075E-4A3A-A7F6-7FBC6576F1A4}", True
    
23. tbl.ApplyStyle "{E269D01E-BC32-4049-B463-5C60D7B0CCD2}", True
    
24. tbl.ApplyStyle "{327F97BB-C833-4FB7-BDE5-3F7075034690}", True
    
25. tbl.ApplyStyle "{638B1855-1B75-4FBE-930C-398BA8C253C6}", True
    
26. 
    
27. 'Light Style 1:
    
28. tbl.ApplyStyle "{9D7B26C5-4107-4FEC-AEDC-1716B250A1EF}", True
    
29. 'Light Style 1 -Accent 1~6:
    
30. tbl.ApplyStyle "{3B4B98B0-60AC-42C2-AFA5-B58CD77FA1E5}", True
    
31. tbl.ApplyStyle "{0E3FDE45-AF77-4B5C-9715-49D594BDF05E}", True
    
32. tbl.ApplyStyle "{C083E6E3-FA7D-4D7B-A595-EF9225AFEA82}", True
    
33. tbl.ApplyStyle "{D27102A9-8310-4765-A935-A1911B00CA55}", True
    
34. tbl.ApplyStyle "{5FD0F851-EC5A-4D38-B0AD-8093EC10F338}", True
    
35. tbl.ApplyStyle "{68D230F3-CF80-4859-8CE7-A43EE81993B5}", True
    
36. 
    
37. 'Light Style 2:
    
38. tbl.ApplyStyle "{7E9639D4-E3E2-4D34-9284-5A2195B3D0D7}", True
    
39. 'Light Style 2 - Accent 1:
    
40. tbl.ApplyStyle "{69012ECD-51FC-41F1-AA8D-1B2483CD663E}", True
    
41. tbl.ApplyStyle "{72833802-FEF1-4C79-8D5D-14CF1EAF98D9}", True
    
42. tbl.ApplyStyle "{F2DE63D5-997A-4646-A377-4702673A728D}", True
    
43. tbl.ApplyStyle "{17292A2E-F333-43FB-9621-5CBBE7FDCDCB}", True
    
44. tbl.ApplyStyle "{5A111915-BE36-4E01-A7E5-04B1672EAD32}", True
    
45. tbl.ApplyStyle "{912C8C85-51F0-491E-9774-3900AFEF0FD7}", True
    
46. 
    
47. 'Light Style 3:
    
48. tbl.ApplyStyle "{616DA210-FB5B-4158-B5E0-FEB733F419BA}", True
    
49. 'Light Style 3 -Accent 1~6:
    
50. tbl.ApplyStyle "{BC89EF96-8CEA-46FF-86C4-4CE0E7609802}", True
    
51. tbl.ApplyStyle "{5DA37D80-6434-44D0-A028-1B22A696006F}", True
    
52. tbl.ApplyStyle "{8799B23B-EC83-4686-B30A-512413B5E67A}", True
    
53. tbl.ApplyStyle "{ED083AE6-46FA-4A59-8FB0-9F97EB10719F}", True
    
54. tbl.ApplyStyle "{BDBED569-4797-4DF1-A0F4-6AAB3CD982D8}", True
    
55. tbl.ApplyStyle "{E8B1032C-EA38-4F05-BA0D-38AFFFC7BED3}", True
    
56. 
    
57. 'Medium Style 1:
    
58. tbl.ApplyStyle "{793D81CF-94F2-401A-BA57-92F5A7B2D0C5}", True
    
59. 'Medium Style 1 -Accent 1~6:
    
60. tbl.ApplyStyle "{B301B821-A1FF-4177-AEE7-76D212191A09}", True
    
61. tbl.ApplyStyle "{9DCAF9ED-07DC-4A11-8D7F-7B35C25682E}", True
    
62. tbl.ApplyStyle "{1FECB4D8-DB02-4DC6-A0A2-4F2EBAE1DC90}", True
    
63. tbl.ApplyStyle "{1E171933-4619-4E11-9A3F-F7608DF75F80}", True
    
64. tbl.ApplyStyle "{FABFCF23-3B69-468F-B69F-88F6DE6A72F2}", True
    
65. tbl.ApplyStyle "{10A1B5D5-9B99-4C35-A422-299274C87663}", True
    
66. 
    
67. ' Medium Style 2:
    
68. tbl.ApplyStyle "{073A0DAA-6AF3-43AB-8588-CEC1D06C72B9}", True
    
69. 
    
70. 'Medium Style 2 - Accent 1~6:
    
71. tbl.ApplyStyle "{5C22544A-7EE6-4342-B048-85BDC9FD1C3A}", True
    
72. tbl.ApplyStyle "{21E4AEA4-8DFA-4A89-87EB-49C32662AFEO}", True
    
73. tbl.ApplyStyle "{F5AB1C69-6EDB-4FF4-983F-18BD219EF322}", True
    
74. tbl.ApplyStyle "{00A15C55-8517-42AA-B614-E9B94910E393}", True
    
75. tbl.ApplyStyle "{{7DF18680-E054-41AD-8BC1-D1AEF772440D}", True
    
76. tbl.ApplyStyle "{93296810-A885-4BE3-A3E7-6D5BEEA58F35}", True
    
77. 
    
78. ' Medium Style 3:
    
79. tbl.ApplyStyle "{8EC20E35-A176-4012-BC5E-935CFFF8708E}", True
    
80. 'Medium Style 3 -Accent 1~6:
    
81. tbl.ApplyStyle "{6E25E649-3F16-4E02-A733-19D2CDBF48F0}", True
    
82. tbl.ApplyStyle "{85BE263C-DBD7-4A20-BB59-AAB30ACAA65A}", True
    
83. tbl.ApplyStyle "{EB344D84-9AFB-497E-A393-DC336BA19D2E}", True
    
84. tbl.ApplyStyle "{EB9631B5-78F2-41C9-869B-9F39066F8104}", True
    
85. tbl.ApplyStyle "{74C1A8A3-306A-4EB7-A6B1-4F7E0EB9C5D6}", True
    
86. tbl.ApplyStyle "{2A488322-F2BA-4B5B-9748-0D474271808F}", True
    
87. 
    
88. 'Medium Style 4:
    
89. tbl.ApplyStyle "{D7AC3CCA-C797-4891-BE02-D94E43425B78}", True
    
90. ' Medium Style 4 - Accent 1~6:
    
91. tbl.ApplyStyle "{69CF1AB2-1976-4502-BF36-3FF5EA218861}", True
    
92. tbl.ApplyStyle "{8A107856-5554-42FB-B03E-39F5DBC370BA}", True
    
93. tbl.ApplyStyle "{0505E3EF-67EA-436B-97B2-0124C06EBD24}", True
    
94. tbl.ApplyStyle "{C4B1156A-380E-4F78-BDF5-A606A8083BF9}", True
    
95. tbl.ApplyStyle "{22838BEF-8BB2-4498-84A7-C5851F593DF1}", True
    
96. tbl.ApplyStyle "{16D9F66E-5EB9-4882-86FB-DCBF35E3C3E4}", True
    
97. 
    
98. 'Dark Style 1:
    
99. tbl.ApplyStyle "{E8034E78-7F5D-4C2E-B375-FC64B27BC917}", True
    
100. 'Dark Style 1 -Accent 1~6:
     
101. tbl.ApplyStyle "{125E5076-3810-47DD-B79F-674D7AD40C01}", True
     
102. tbl.ApplyStyle "{37CE84F3-28C3-443E-9E96-99CF82512B78}", True
     
103. tbl.ApplyStyle "{D03447BB-5D67-496B-8E87-E561075AD55C}", True
     
104. tbl.ApplyStyle "{E929F9F4-4A8F-4326-A1B4-22849713DDAB}", True
     
105. tbl.ApplyStyle "{8FD4443E-F989-4FC4-A0C8-D5A2AF1F390B}", True
     
106. tbl.ApplyStyle "{AF606853-7671-496A-8E4F-DF71F8EC918B}", True
     
107. 
     
108. 'Dark Style 2:
     
109. tbl.ApplyStyle "{5202B0CA-FC54-4496-8BCA-5EF66A818D29}", True
     
110. ' Dark Style 2 - Accent 1/Accent 2:
     
111. tbl.ApplyStyle "{0660B408-B3CF-4A94-85FC-2B1E0A45F4A2}", True
     
112. ' Dark Style 2 - Accent 3/Accent 4:
     
113. tbl.ApplyStyle "{91EBBBCC-DAD2-459C-BE2E-F6DE35CF9A28}", True
     
114. ' Dark Style 2 - Accent 5/Accent 6:
     
115. tbl.ApplyStyle "{46F890A9-2807-4EBB-B81D-B2AA78EC7F39}", True
     
116. 
     
117. End Sub
     

复制代码

但如果是填充一个图片的话，又怎么弄叫呢，
手动操作，有选择图片文件的，还有从剪切板填充的

lss001

aman1516 发表于 2024-9-18 19:25
枚举表格样式：

但如果是填充一个图片的话，又怎么弄叫呢，

shp.Select '选择后填充指定图片
With ActiveWindow.Selection.ShapeRange.Fill
    .Visible = msoTrue
    .UserPicture "D:\1.jpg"
End With

aman1516

lss001 发表于 2024-9-18 22:58
shp.Select '选择后填充指定图片
With ActiveWindow.Selection.ShapeRange.Fill
    .Visible = msoTru ...

感谢指导，可以了：
1）整体填充
    PowerPoint.ActivePresentation.Slides(1).Shapes("表格 1").Fill.UserPicture ("D:\Downloads\TestBmp\SH.png")
2）单个表格填充
   PowerPoint.ActivePresentation.Slides(1).Shapes("表格 1").Table.Cell(1, 1).Shape.Fill.UserPicture ("D:\Downloads\TestBmp\T1.jpg")