Shapes.AddWebVideo (Word)
Adiciona um novo vídeo da Web ao 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
O seguinte argumento é opcional
EmbedCode (String) - O código HTML a ser inserido.
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) - Uma cadeia de caracteres que contém a URL para o vídeo da Web.
Left (Long) - A posição, medida em pontos, da borda esquerda do quadro do cartaz da borda do documento.
Top (Long) - A posição, medida em pontos, da borda superior do quadro do cartaz da borda do documento.
Width (Long) - A largura, medida em pontos, do quadro do cartaz no documento.
Height (Long) - A altura, medida em pontos, do quadro do cartaz no documento.
Anchor (Range) - Um objeto Range que representa o texto ao qual o vídeo da Web está vinculado. Se Anchor for especificado, a âncora será posicionada no início do primeiro parágrafo no intervalo de ancoragem. Se esse argumento for omitido, o intervalo de ancoragem será selecionado automaticamente e o vídeo será posicionado em relação às bordas superior e esquerda da página.