怪事：在由VBA代码生成的幻灯片的slidemaster中不能用代码添加shape

weiyingde · 发表于 2019-10-6 22:23

……………………
Set pptapp = CreateObject("POWERPOINT.Application")
Set apre = pptapp.Presentations.Add
Set cuslayout = apre.SlideMaster.CustomLayouts(7)
……………………………………
Set osld = apre.SlideMaster
set shps =osld.shapes
……………………
红字部分有错：运行时错误'13’,类型不匹配。轻微为什么？

weiyingde · 发表于 2020-2-16 07:25

有人指点吗，为什么不能，怎样才行

dongdonggege · 发表于 2021-5-12 11:43

03版，07版，运行正常

Sub test()
ActiveWindow.ViewType = ppViewSlideMaster
Set Sld = ActivePresentation.SlideMaster
Set shp = Sld.Shapes.AddShape(msoShapeRectangle, 200, 100, 100, 30)
Set eff = ActivePresentation.SlideMaster.TimeLine.MainSequence.AddEffect(Shape:=shp, effectid:=msoAnimEffectSpin, trigger:=msoAnimTriggerWithPrevious)
ActiveWindow.ViewType = ppViewSlide
End Sub

复制代码

请试试。

weiyingde · 发表于 2021-5-20 07:40

dongdonggege 发表于 2021-5-12 11:43
03版，07版，运行正常

请试试。

谢谢回复。

		自动登录	找回密码
密码			免费注册

[求助] 怪事：在由VBA代码生成的幻灯片的slidemaster中不能用代码添加shape