Shapes.AddWebVideo (Word)

Ajoute une nouvelle vidéo Web au 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

Les arguments nommés :

EmbedCode (String) - Code HTML à incorporer.

VideoWidth (Integer) - Entier qui représente la largeur de la vidéo Web en pixels.

VideoHeight (Integer) - Entier qui représente la hauteur de la vidéo Web en pixels.

Optional arguments

Les arguments suivants sont facultatifs

PosterFrameImage (String) - Chaîne qui pointe vers le fichier à utiliser comme cadre d’affiche pour la vidéo Web.

Url (String) - Chaîne qui contient l’URL de la vidéo Web.

Left (Long) - Position, exprimée en points, du bord gauche de l’image d’affiche à partir du bord du document.

Top (Long) - Position, exprimée en points, du bord supérieur de l’image d’affiche à partir du bord du document.

Width (Long) - Largeur, exprimée en points, de l’image d’affiche dans le document.

Height (Long) - Hauteur, exprimée en points, de l’image d’affiche dans le document.

Anchor (Range) - Objet Range qui représente le texte auquel la vidéo Web est liée.