[VBA]GetOpenFilename ne fonctionne pas

GetOpenFilename ne fonctionne pas [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 19-12-2005 à 11:44:48    

bonjour j'ai powerpoint 2003
 
pourquoi ça marche sous excel et pas sous powerpoint
moi j'ai besoin pour powerpoint  
 
merci d'avance
 

Code :
  1. Dim image As String
  2. image = Application.GetOpenFilename
  3. Shapes.AddPicture image, True, True, 100, 122, 330, 246


Reply

Marsh Posté le 19-12-2005 à 11:44:48   

Reply

Marsh Posté le 19-12-2005 à 12:02:27    

ou basé la dessus mais je veux pas un path fixe  
je veux selectionner le fichier avec la souris
 

Code :
  1. ActiveWindow.Selection.SlideRange.Shapes.AddPicture _
  2. (FileName:="" _
  3. , LinkToFile:=msoFalse, SaveWithDocument:=msoTrue _
  4. , Left:=1, Top:=1, Width:=240, Height:=135).Select

Reply

Marsh Posté le 19-12-2005 à 12:25:42    

C'est pas un problème de références par hasard ?
 
Sinon tu as application.filedialog(msofiledialogfilepicker ou msofiledialogopen).
 
à voir :)

Reply

Marsh Posté le 19-12-2005 à 14:15:17    

MERCI WATASHI  
t'es la meilleure

Reply

Marsh Posté le 19-12-2005 à 14:22:36    

Loin de là ;)
 
mais les compliments font toujours du bien :D

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed