Shapes.AddWebVideo procedure builder

Shapes.AddWebVideo (Word)

Adds a new web video to the document.

AddWebVideo (EmbedCode, VideoWidth, VideoHeight, PosterFrameImage, Url, Left, Top, Width, Height, Anchor)

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)

Arguments

The following arguments are required:

EmbedCode (String) - The HTML code to embed.

VideoWidth - An integer that represents the width of the web video in pixels

VideoHeight - An integer that represents the height of the web video in pixels

Optional arguments

The following arguments are optional

PosterFrameImage - A string that points to the file to use as the poster frame for the web video

Url - A string that contains the URL to the web video

Left - The position, measured in points, of the left edge of the poster frame from the edge of the document

Top - The position, measured in points, of the top edge of the poster frame from the edge of the document

Width - The width, measured in points, of the poster frame in the document

Height - The height, measured in points, of the poster frame in the document

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