Adds a new web video to the document.
Dim strEmbedCode As String: strEmbedCode = Dim iVideoWidth As Integer: iVideoWidth = Dim iVideoHeight As Integer: iVideoHeight = Dim shpAddWebVideo As Shape Set shpAddWebVideo = Selection.HeaderFooter.Shapes.AddWebVideo(EmbedCode:=strEmbedCode, VideoWidth:=iVideoWidth, VideoHeight:=iVideoHeight)
The following arguments are required:
The following arguments are optional
Anchor - A Range object that represents the text to which the web video is bound. If Anchor is specified, the anchor is positioned at the beginning of the first paragraph in the anchoring range. If this argument is omitted, the anchoring range is selected automatically and the video is positioned relative to the top and left edges of the page