[VBA PPT2003] Fonction FileDialog(msoFileDialogSaveAs) choix du filter

Fonction FileDialog(msoFileDialogSaveAs) choix du filter [VBA PPT2003] - VB/VBA/VBS - Programmation

Marsh Posté le 10-01-2006 à 10:32:01    

bonjour,
 
je n'arrive pas à mettre une option filter donc jpg et le seul moyen que j'ai trouvé c est d exporter en jpg
 
voici mon code :
 

Code :
  1. Sub Function_SaveAsJpg()
  2. With Application.FileDialog(msoFileDialogSaveAs)
  3.          .AllowMultiSelect = False         'Un seul Fichier possible
  4.          .InitialFileName = "C:\Mes donnees\"          'Répertoire d'ouverture de la fenetre
  5.          .Title = "Choix de l'image"
  6.         If .Show = -1 Then
  7.             TheFile = .SelectedItems(1)
  8.             Application.ActivePresentation.Slides(1).Export TheFile & ".jpg", "JPG"
  9.             Call Function_RemiseA0
  10.             Call supprImage
  11.             Unload UserForm4
  12.             UserForm3.Show
  13.         Else: TheFile = 0
  14.                 Exit Sub
  15.         End If
  16. End With
  17. End Sub

Reply

Marsh Posté le 10-01-2006 à 10:32:01   

Reply

Marsh Posté le 12-01-2006 à 15:26:17    

Hello,
 

Code :
  1. Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pSavefilename As SAVEFILENAME) As Long
  3. Private Type SAVEFILENAME
  4.     lStructSize As Long
  5.     hwndOwner As Long
  6.     hInstance As Long
  7.     lpstrFilter As String
  8.     lpstrCustomFilter As String
  9.     nMaxCustFilter As Long
  10.     nFilterIndex As Long
  11.     lpstrFile As String
  12.     nMaxFile As Long
  13.     lpstrFileTitle As String
  14.     nMaxFileTitle As Long
  15.     lpstrInitialDir As String
  16.     lpstrTitle As String
  17.     flags As Long
  18.     nFileOffset As Integer
  19.     nFileExtension As Integer
  20.     lpstrDefExt As String
  21.     lCustData As Long
  22.     lpfnHook As Long
  23.     lpTemplateName As String
  24. End Type
  27. Private Sub Save_Click()
  28. Dim OFName As SAVEFILENAME
  29.     OFName.lStructSize = Len(OFName)
  30.     'Select a filter
  31.     OFName.lpstrFilter = "Image Files (*.jpg)" + Chr$(0) + "*.jpg;*.jpeg"
  32.     'create a buffer for the file
  33.     OFName.lpstrFile = Space$(254)
  34.     'set the maximum length of a returned file
  35.     OFName.nMaxFile = 255
  36.     'Create a buffer for the file title
  37.     OFName.lpstrFileTitle = Space$(254)
  38.     'Set the maximum length of a returned file title
  39.     OFName.nMaxFileTitle = 255
  40.     'Set the initial directory
  41.     OFName.lpstrInitialDir = "C:\"
  42.     'Set the title
  43.     OFName.lpstrTitle = "Save Image"
  44.     'No flags
  45.     OFName.flags = 0
  47.     'Show the 'Open File'-dialog
  48.     If GetSaveFileName(OFName) Then
  49.         MsgBox "File to Save: " + Trim$(OFName.lpstrFile)
  50.     Else
  51.         MsgBox "Cancel was pressed"
  52.     End If
  53. End Sub


Message édité par Vasek le 12-01-2006 à 15:35:46
Reply

Marsh Posté le 12-01-2006 à 15:41:27    

ok je vais regarder

Reply

Sujets relatifs:

Leave a Replay

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