Shapes.AddWebVideo (Word)

Agrega un nuevo vídeo web al documento.

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

Estos son los argumentos con nombre :

EmbedCode (String) - Código HTML que se va a insertar.

VideoWidth - Integer

VideoHeight - Integer

Optional arguments

Los siguientes argumentos son opcionales

PosterFrameImage (String) - Una cadena que apunta al archivo que se va a usar como marco de póster para el vídeo web.

Url (String) - Una cadena que contiene la dirección URL del vídeo web.

Left (Long) - La posición, medida en puntos, del borde izquierdo del marco de póster desde el borde del documento.

Top (Long) - La posición, medida en puntos, del borde superior del marco de póster desde el borde del documento.

Width (Long) - El ancho, medido en puntos, del marco del póster en el documento.

Height (Long) - El alto, medido en puntos, del marco del póster en el documento.

Anchor (Range) - Objeto Range que representa el texto al que está enlazado el vídeo web.