macro vba word trop grosse ?

Question

bonjour 

j'ai creer une macro sous word 2003 qui me permet de selectioner des
photos et qui sont automatiquement inss&#233;r&#233;es dans des objets image
(picture)  ou bien permet aussi une selection individuel comme
dans l'exemple plus bas

mon problem et le suivant : le poid des photos insser&#233;es et multipli&#233;
par 30 ! si je mets un fichiers de 50 Ko le fichier final passe a 2000
Ko 



le code  : 

lors d'un double  click sur une picture :

Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim textselectimage As String

textselectimage = selectimage

  If textselectimage <> "" Then

     ThisDocument.Image1.Picture = LoadPicture(textselectimage)

  End If

  End Sub

****************************

Function selectimage()

Dim fd As FileDialog



    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    Dim vrtSelectedItem As Variant

With fd

.AllowMultiSelect = False

           If .Show = -1 Then

                     

             selectimage = fd.SelectedItems.Item(1)

              

           Else

           End If

End With

   

    Set fd = Nothing

End Function

bouv · Answer

J'ai d&#233;j&#224; rencontr&#233; ce pb avec  word, mais rien &#224; voir avec la macro, j'avais le m&#234;me resultat quand j'ajoutait manuellement les photos. Il me semble que Word doit les convertir en format non compress&#233; (BMP).

Je n'ai pas trouv&#233; de solutions.... A moins que ....... 1 disque dur de 500 Go  

Bonne prog
++

batman25 · Answer

ta raison c'est word qui converti les photos jpg en bmp , y'a pas une methode pour oblig&#233; word a les compresser je pense notament a l'option "format de l'objet" -->compression d'image --> changement de resolution : le problem c'est que le changement de parametre n'est pas pris en compte

Macro vba word trop grosse ?

2 réponses

Discussions similaires