|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
老师你好!
在PPT里能用,为何在WPS Word里不能用?.MergeShapes msoMergeCombine, oSP,有问题,对象不支持该属性或方法。
Sub 图形布尔计算组合()
Set mydoc = ActiveDocument
Set shp1 = mydoc.Shapes.AddShape(msoShapeOval, 200, 100, 100, 100) '1插入第1个圆
Set shp2 = mydoc.Shapes.AddShape(msoShapeOval, 250, 100, 100, 100) '2插入第2个圆
shp1.Fill.Transparency = 0#
shp1.Fill.Patterned msoPatternDarkDownwardDiagonal
shp2.Fill.Transparency = 0#
shp2.Fill.Patterned msoPatternDarkDownwardDiagonal
With mydoc
Set oSP = shp1
Set oSPR = .Shapes.Range(Array(shp1.ZOrderPosition, shp2.ZOrderPosition))
With oSPR
.MergeShapes msoMergeCombine, oSP
End With
End With
End Sub
麻烦老师。 |
|