Je travaille sur une macro pour ins=E9rer des logos dans un
pr=E9sentation PPT depuis Excel.
En bref, j'ai un userform avec un bouton option qui ouvre une boite de
dialogue pour permettre =E0 l'utilisateur de s=E9lectionner l'image =E0
ins=E9rer;
If OptionButton1.Value =3D True Then
Dim Limage
Limage =3D Application.GetOpenFilename("Toutes les images " & _
"(*.bmp;*.jpg;*.jpeg;*.wmf;*.emf)," & _
"*.bmp;*.jpg;*.jpeg;*.emf;*.wmf", , "il ton logo ?")
If VarType(Limage) =3D vbBoolean Then Exit Sub
End If
Ensuite, j'ai ce code pour ins=E9rer l'image dans PPT :
C'est l=E0 que =E7=E0 bug ! Et je vois pas pourquoi ? Quelqu'un pour me
redonner la vue ?
=E7a doit pas =EAtre compliqu=E9, mais je suis l=E0 comme dans Lost !
Je travaille sur une macro pour insérer des logos dans un présentation PPT depuis Excel.
En bref, j'ai un userform avec un bouton option qui ouvre une boite de dialogue pour permettre à l'utilisateur de sélectionner l'image à insérer;
If OptionButton1.Value = True Then Dim Limage Limage = Application.GetOpenFilename("Toutes les images " & _ "(*.bmp;*.jpg;*.jpeg;*.wmf;*.emf)," & _ "*.bmp;*.jpg;*.jpeg;*.emf;*.wmf", , "il ton logo ?") If VarType(Limage) = vbBoolean Then Exit Sub End If
Ensuite, j'ai ce code pour insérer l'image dans PPT :
Je travaille sur une macro pour insérer des logos dans un
présentation PPT depuis Excel.
En bref, j'ai un userform avec un bouton option qui ouvre une boite de
dialogue pour permettre à l'utilisateur de sélectionner l'image à
insérer;
If OptionButton1.Value = True Then
Dim Limage
Limage = Application.GetOpenFilename("Toutes les images " & _
"(*.bmp;*.jpg;*.jpeg;*.wmf;*.emf)," & _
"*.bmp;*.jpg;*.jpeg;*.emf;*.wmf", , "il ton logo ?")
If VarType(Limage) = vbBoolean Then Exit Sub
End If
Ensuite, j'ai ce code pour insérer l'image dans PPT :
Je travaille sur une macro pour insérer des logos dans un présentation PPT depuis Excel.
En bref, j'ai un userform avec un bouton option qui ouvre une boite de dialogue pour permettre à l'utilisateur de sélectionner l'image à insérer;
If OptionButton1.Value = True Then Dim Limage Limage = Application.GetOpenFilename("Toutes les images " & _ "(*.bmp;*.jpg;*.jpeg;*.wmf;*.emf)," & _ "*.bmp;*.jpg;*.jpeg;*.emf;*.wmf", , "il ton logo ?") If VarType(Limage) = vbBoolean Then Exit Sub End If
Ensuite, j'ai ce code pour insérer l'image dans PPT :
A priori ta variable ne récupère rien, si ce n'est ouvrir la boîte de dialogue et dans Ppt il s'attend à ce que cette variable contienne un nom de fichier.
"Richard G." wrote:
Merci, mais ça ne marche pas.
Any idea ?
Bonjour,
A priori ta variable ne récupère rien, si ce n'est ouvrir la boîte de
dialogue et dans Ppt il s'attend à ce que cette variable contienne un nom de
fichier.
A priori ta variable ne récupère rien, si ce n'est ouvrir la boîte de dialogue et dans Ppt il s'attend à ce que cette variable contienne un nom de fichier.
"Richard G." wrote:
Merci, mais ça ne marche pas.
Any idea ?
Richard G.
Oui, je crois bien que c'est cela. Sais-tu comment récupérer le nom du fichier en question ? A+
Oui, je crois bien que c'est cela.
Sais-tu comment récupérer le nom du fichier en question ?
A+
Oui, je crois bien que c'est cela. Sais-tu comment récupérer le nom du fichier en question ? A+
Michel Pierron
Bonjour Richard;
If OptionButton1.Value Then Dim Limage Limage = Application.GetOpenFilename("Toutes les images " _ & "(*.bmp;*.jpg;*.jpeg;*.wmf;*.emf)," _ & "*.bmp;*.jpg;*.jpeg;*.emf;*.wmf", , "il ton logo ?") If VarType(Limage) = vbBoolean Then Exit Sub Dim PPApp As Object On Error Resume Next Set PPApp = GetObject(, "PowerPoint.Application") If Err Then Set PPApp = CreateObject("PowerPoint.Application") With PPApp.ActiveWindow.Selection.SlideRange.Shapes _ .AddPicture(Filename:=Limage, LinkToFile:=msoFalse _ , SaveWithDocument:=msoTrue, Left:, Top:r _ , Width:4, Height:95) End With Set PPApp = Nothing End If
MP
"Richard G." a écrit dans le message de news:
Bonsoir / Bonjour,
Je travaille sur une macro pour insérer des logos dans un présentation PPT depuis Excel.
En bref, j'ai un userform avec un bouton option qui ouvre une boite de dialogue pour permettre à l'utilisateur de sélectionner l'image à insérer;
If OptionButton1.Value = True Then Dim Limage Limage = Application.GetOpenFilename("Toutes les images " & _ "(*.bmp;*.jpg;*.jpeg;*.wmf;*.emf)," & _ "*.bmp;*.jpg;*.jpeg;*.emf;*.wmf", , "il ton logo ?") If VarType(Limage) = vbBoolean Then Exit Sub End If
Ensuite, j'ai ce code pour insérer l'image dans PPT :
C'est là que çà bug ! Et je vois pas pourquoi ? Quelqu'un pour me redonner la vue ? ça doit pas être compliqué, mais je suis là comme dans Lost !
Merci par avance !
A+
JTC
Bonjour Richard;
If OptionButton1.Value Then
Dim Limage
Limage = Application.GetOpenFilename("Toutes les images " _
& "(*.bmp;*.jpg;*.jpeg;*.wmf;*.emf)," _
& "*.bmp;*.jpg;*.jpeg;*.emf;*.wmf", , "il ton logo ?")
If VarType(Limage) = vbBoolean Then Exit Sub
Dim PPApp As Object
On Error Resume Next
Set PPApp = GetObject(, "PowerPoint.Application")
If Err Then Set PPApp = CreateObject("PowerPoint.Application")
With PPApp.ActiveWindow.Selection.SlideRange.Shapes _
.AddPicture(Filename:=Limage, LinkToFile:=msoFalse _
, SaveWithDocument:=msoTrue, Left:, Top:r _
, Width:4, Height:95)
End With
Set PPApp = Nothing
End If
MP
"Richard G." <jamesTcarville@yahoo.fr> a écrit dans le message de news:
1128372620.342868.256430@f14g2000cwb.googlegroups.com...
Bonsoir / Bonjour,
Je travaille sur une macro pour insérer des logos dans un
présentation PPT depuis Excel.
En bref, j'ai un userform avec un bouton option qui ouvre une boite de
dialogue pour permettre à l'utilisateur de sélectionner l'image à
insérer;
If OptionButton1.Value = True Then
Dim Limage
Limage = Application.GetOpenFilename("Toutes les images " & _
"(*.bmp;*.jpg;*.jpeg;*.wmf;*.emf)," & _
"*.bmp;*.jpg;*.jpeg;*.emf;*.wmf", , "il ton logo ?")
If VarType(Limage) = vbBoolean Then Exit Sub
End If
Ensuite, j'ai ce code pour insérer l'image dans PPT :
If OptionButton1.Value Then Dim Limage Limage = Application.GetOpenFilename("Toutes les images " _ & "(*.bmp;*.jpg;*.jpeg;*.wmf;*.emf)," _ & "*.bmp;*.jpg;*.jpeg;*.emf;*.wmf", , "il ton logo ?") If VarType(Limage) = vbBoolean Then Exit Sub Dim PPApp As Object On Error Resume Next Set PPApp = GetObject(, "PowerPoint.Application") If Err Then Set PPApp = CreateObject("PowerPoint.Application") With PPApp.ActiveWindow.Selection.SlideRange.Shapes _ .AddPicture(Filename:=Limage, LinkToFile:=msoFalse _ , SaveWithDocument:=msoTrue, Left:, Top:r _ , Width:4, Height:95) End With Set PPApp = Nothing End If
MP
"Richard G." a écrit dans le message de news:
Bonsoir / Bonjour,
Je travaille sur une macro pour insérer des logos dans un présentation PPT depuis Excel.
En bref, j'ai un userform avec un bouton option qui ouvre une boite de dialogue pour permettre à l'utilisateur de sélectionner l'image à insérer;
If OptionButton1.Value = True Then Dim Limage Limage = Application.GetOpenFilename("Toutes les images " & _ "(*.bmp;*.jpg;*.jpeg;*.wmf;*.emf)," & _ "*.bmp;*.jpg;*.jpeg;*.emf;*.wmf", , "il ton logo ?") If VarType(Limage) = vbBoolean Then Exit Sub End If
Ensuite, j'ai ce code pour insérer l'image dans PPT :
C'est là que çà bug ! Et je vois pas pourquoi ? Quelqu'un pour me redonner la vue ? ça doit pas être compliqué, mais je suis là comme dans Lost !
Merci par avance !
A+
JTC
Richard G.
Merci Michel, mais j'avais déjà ce code qui créé le PPT. Pour le reste, l'option bouton ouvre la boite de dialogue, me permet de sélectionner l'image à insérer. Et puis plus rien. Je ne récupère pas le chemin du fichier. Une idée ??
Merci Michel, mais j'avais déjà ce code qui créé le PPT.
Pour le reste, l'option bouton ouvre la boite de dialogue, me permet de
sélectionner l'image à insérer. Et puis plus rien.
Je ne récupère pas le chemin du fichier.
Une idée ??
Merci Michel, mais j'avais déjà ce code qui créé le PPT. Pour le reste, l'option bouton ouvre la boite de dialogue, me permet de sélectionner l'image à insérer. Et puis plus rien. Je ne récupère pas le chemin du fichier. Une idée ??
