InlineShapes.AddWebVideo (Word)

Adiciona um novo vídeo da Web ao documento.

AddWebVideo (EmbedCode, VideoWidth, VideoHeight, PosterFrameImage, Url, Range)

Dim strEmbedCode As String: strEmbedCode = 
Dim iVideoWidth As Integer: iVideoWidth = 
Dim iVideoHeight As Integer: iVideoHeight =  
Dim iseAddWebVideo As InlineShape
Set iseAddWebVideo = ActiveDocument.Range.InlineShapes.AddWebVideo(EmbedCode:=strEmbedCode, VideoWidth:=iVideoWidth, VideoHeight:=iVideoHeight)

Arguments

O seguinte argumento é opcional

EmbedCode (String) - O código de inserção do vídeo.

VideoWidth (Integer) - Um inteiro que representa a largura do vídeo da Web em pixels.

VideoHeight (Integer) - Um inteiro que representa a altura do vídeo da Web em pixels.

Optional arguments

Os seguintes argumentos são opcionais

PosterFrameImage (String) - Uma cadeia de caracteres que aponta para o arquivo a ser usado como o quadro de cartaz para o vídeo da Web.

Url (String) - A URL do vídeo.

Range (Range) - O intervalo no qual inserir o vídeo da Web. Se Range for omitido, a seleção atual será usada.