能否用VBA实现对两图进行布尔运算

aman1516

PPT中，若对两个图形进行相关布尔运算：
结合 (msoMergeUnion)
组合  (msoMergeCombine)
拆分 (msoMergeFragment)
相交 (msoMergeIntersect)
剪除 (msoMergeSubtract)
使用的是 ShapeRange.MergeShapes(MergeCmd, PrimaryShape) 方法
但在2007中，提示 “方法和数据成员未找到” 的错误提示，

1. Sub MerPic()
   
2. Dim shp1 As Shape, shp2 As Shape
   
3. Set shp1 = ActivePresentation.Slides(1).Shapes.AddShape(msoShapeOval, 100, 100, 50, 50)
   
4. Set shp2 = ActivePresentation.Slides(1).Shapes.AddShape(msoShapePie, 100, 100, 50, 50)
   
5. <pre style="box-sizing: border-box; border: 0px; font-family: inherit; font-size: 15px; margin-bottom: 5px; outline: 0px; vertical-align: baseline; text-align: justify; word-break: break-all; background-color: rgb(255, 255, 255);"><code class="prettyprint-override" style="box-sizing: border-box; border: 0px; font-family: inherit; font-style: inherit; outline: 0px; vertical-align: baseline;">Call ActiveWindow.Selection.SlideRange(1).Shapes.Range(Array(shp1.ZOrderPosition, shp2.ZOrderPosition)).MergeShapes(msoMergeCombine)</code></pre>End Sub

复制代码

或者改成，

1. Sub hbing()
   
2. Dim shp1 As Shape
   
3. Dim shp2 As Shape
   
4. Dim aShapeArray As Variant
   
5. Dim oRange As ShapeRange
   
6. Set shp1 = ActivePresentation.Slides(1).Shapes.AddShape(msoShapeOval, 100, 100, 50, 50)
   
7. Set shp2 = ActivePresentation.Slides(1).Shapes.AddShape(msoShapePie, 100, 100, 50, 50)
   
8. Set aShapeArray = ActivePresentation.Slides(1).Shapes.Range(Array(shp1.Name, shp2.Name))
   
9. Set oRange = aShapeArray
   
10. oRange.MergeShapes (msoMergeCombine)     'msoMergeUnion
    
11. ActivePresentation.Slides(1).Shapes(ActivePresentation.Slides(1).Shapes.Count).Name = "BINGO!"
    
12. End Sub

复制代码

都出错，.MergeShape 方法未在 Project 中实现（属性方法中也没有提示）
请教下是版本问题，还是引用问题?
能否在2007PPT中，用VBA实现两个图形上述各种的布尔处理运算？

再退一步，EXCEL能否用VBA实现图形的布尔运算？

aman1516

看来是要升级Office 版本了

aman1516

PPT的VBA 应用，太少人弄了，顶起一下

micch

不是版本的问题，是Excel没有PPT的一些图形处理功能

aman1516

micch 发表于 2023-8-22 20:42
不是版本的问题，是Excel没有PPT的一些图形处理功能

是要在PPT里面处理的，想实现
Office 2013 以上 PowerPoint  的图形处理功能.....

shenjianrong163

下面代码在高版本Office和WPS中都通过，你试下2007能用吗？

1. Sub hbing()
   
2.     Dim oSP As Shape
   
3.     Dim oSPR As ShapeRange
   
4.     Dim shp1 As Shape, shp2 As Shape
   
5.     With ActivePresentation
   
6.         With .Slides(1)
   
7.             Set shp1 = .Shapes.AddShape(msoShapeOval, 100, 100, 50, 50)
   
8.             Set shp2 = .Shapes.AddShape(msoShapePie, 100, 100, 50, 50)
   
9.             Set oSP = shp1
   
10.             Set oSPR = .Shapes.Range(Array(shp1.ZOrderPosition, shp2.ZOrderPosition))
    
11.             With oSPR
    
12.                 .MergeShapes msoMergeSubtract, oSP
    
13.             End With
    
14.         End With
    
15.     End With
    
16. End Sub

复制代码

wanghan519

偏门一点，PPT、Excel、浏览器等多数工具都支持插入svg图，而svg里可以用代码写路径、遮罩，实现集合操作，具体代码问gpt，准确性还不错

02761752696

WIN7  64  OFFICE 2016  运行正常

morpheus126

有没有一种可能，PPT2007还没有布尔运算~

micch

aman1516 发表于 2023-8-23 00:27
是要在PPT里面处理的，想实现
Office 2013 以上 PowerPoint  的图形处理功能.....