vba - AddMediaObject和AddMediaObject2编译器错误

Question

ActivePresentation.Slides(1).Shapes.AddMediaObject2(audioFileName，msoFalse，msoTrue，50，50，50，50)每次都会出现错误，无论它是否具有包含Filename:=等的完整字符串。它也不会也可以使用AddMediaObject。

这个:
ActivePresentation.Slides(1).Shapes.AddMediaObject2 audioFileName，msoFalse，msoTrue，50、50、50、50

不会引发编译器错误，但也不起作用。我非常困惑，因为这已经让我连续三天感到沮丧。我已经搜索并尝试了任何人为该类型的代码键入的每种格式，但我终生无法使用它。

它不适用于音频或视频。图片可以与AddPicture一起正常使用，但必须位于

ActivePresentation.Slides(1).Shapes.AddPicture文件名:= picFileName，LinkToFile:= msoFalse，SaveWithDocument:= msoTrue，左侧:= 50，顶部:= 50，宽度:= 50，高度:= 50

类型格式，并且不能将文件名周围的(或)用作高度。

另外，编译器错误告诉我要添加等号和字符串...，但要在格式的结尾加上方括号。我不知道发生了什么。

任何帮助将不胜感激。

Answer 1

.Add和许多其他方法可以用作语句或函数。

ActivePresentation.Slides(1).Shapes.AddMediaObject2(audioFileName，msoFalse等)(例如，在AddMediaObject2之后的Parens中)是一个函数，它将返回对新添加的媒体对象的引用，因此您需要执行此操作

Set SomeObject = ActivePresentation.Slides(1).Shapes.AddMediaObject2(audioFileName, msoFalse, 

代替。或者，如果您不打算对返回的对象引用做任何事情，请忽略括号。

只要我提供有效媒体文件的完整路径(PPT可以自己手动导入该路径)，第二种语法(不带括号)就可以在这里工作。

运行代码时出现什么错误？