Discussion :

[Carabistouilleur]

Bonjour à toutes et tous .
je voudrais tout bêtement faire à ceci :
https://support.microsoft.com/fr-fr/...1-d10e4e3ea715
en vba .

La méthode existe pour Publisher (voir code ci-après), mais je n'ai pas trouvé l'équivalent en vba Word

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisDocument.Pages(1).Shapes(1).SaveAsPicture "filename.jpg"

Je vous remercie par avance.

[Carabistouilleur]

D'après ce que j'ai pu trouver, on peut se servir d'un document Publisher pour exporter ensuite l'image.

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub EnregistrerEnTantQuImage()
Dim oDocPub            As Publisher.Document  'ne pas oublier de charger la lib Publisher ;-)
Const NOM_IMAGE = "C:\MonChemin\MonImage.jpg"
Set oDocPub = New Publisher.Document
 
ActiveDocument.InlineShapes(1).Range.CopyAsPicture
oDocPub.Pages(1).Shapes.Paste
oDocPub.Pages(1).Shapes(1).SaveAsPicture NOM_IMAGE, pbPictureResolutionDefault
oDocPub.Pages(1).Shapes(1).Delete
End Sub

Je clôture cette discution, n'hésitez cependant pas à l'enrichir, notamment si vous avez une solution plus simple...
Merci.

[Carabistouilleur]

Bonjour.
Je me permets de relancer cette discussion car j'ai toujours un souci pour exporter les images d'un document Word.
L'export fonctionne, mais certaines images obtenues sont tronquées.
Petite subtilité : je précise que j'exporte des contenus de cellules de tableaux sous forme d'images (s'il s'agit d'images contenues dans un document Word, et non des contenus de cellules de table, aucun problème d'image tronquée)

voici le code correspondant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub CreationImagesDetail_Version_DPC()
 
Dim oWordApp                    As Word.Application
Dim oWordDoc                    As Word.Document
Dim oTable                      As Word.Table
Dim oDocPub                     As Publisher.Document  'ne pas oublier de charger la lib Publisher ;-)
 
Dim sCheminCour                 As String
Dim sNomJPG                     As String
Dim iTableau                    As Integer
Dim dHauteur                    As Double
Dim dLargeur                    As Double
Dim sID                         As String
 
    sCheminCour = CurrentProject.Path & "\"
    Set oWordApp = CreateObject("word.application")
    oWordApp.Visible = False    'Word reste masqué pendant l'opération
 
    Set oWordDoc = oWordApp.Documents.Open(sCheminCour & "Topic_DPC\2024_03_16\MonDoc.docx", , False)       'ouvre le document Word pas en lecture seule
    Set oDocPub = New Publisher.Document 'sert de "presse-papier"
 
    'parcours des tableaux du doc
    For iTableau = 1 To oWordDoc.Tables.Count
        'copie du contenu de la cellule
        oWordDoc.Tables(iTableau).Cell(2, 2).Range.CopyAsPicture
 
        'collage dans Publisher pour pouvoir exporter ensuite
        oDocPub.Pages(1).Shapes.Paste
 
 
        'Création nom image
        sID = oWordDoc.Tables(iTableau).Cell(1, 1).Range.Text
        sID = Left(oWordDoc.Tables(iTableau).Cell(1, 1).Range.Text, Len(sID) - 2) & "_"
        sNomJPG = sCheminCour & "Topic_DPC\2024_03_16\Images\Image_" & sID & iTableau & ".jpg"
        'export
        oDocPub.Pages(1).Shapes(1).SaveAsPicture sNomJPG, pbPictureResolutionDefault
 
        'suppression images template
        oDocPub.Pages(1).Shapes(1).Delete
    Next iTableau
 
    oDocPub.Close
    oWordDoc.Close (False)  'fermeture document Word sans sauvegarde
    Set oWordDoc = Nothing
 
    Set oDocPub = Nothing
    oWordApp.Quit    'fermeture session Word
    Set oWordApp = Nothing
End Sub

Autre précision : je code depuis Access ( l'application réalise d'autres tâches…).

Ci-joint un bon exemple de document à traiter si vous voulez tester le code:
MonDoc.7z

J'ai essayé de redimensionner image comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
        '----------------agrandissement de l'image dans Publisher----------------
            dHauteur = oDocPub.Pages(1).Shapes(1).GetHeight(pbUnitPoint)
            dLargeur = oDocPub.Pages(1).Shapes(1).GetWidth(pbUnitPoint)
            '----------------le code suivant provoque l'erreur en question----------------
            oDocPub.Pages(1).Shapes(1).Height = dHauteur * 2
            oDocPub.Pages(1).Shapes(1).Width = dLargeur * 2
            '-----------------------------------------------------------------------------
        '----------------fin agrandissement de l'image dans Publisher------------

...cela provoque une erreur :


Merci pour votre aide

[Carabistouilleur]

Bonjour.

A insérer entre les lignes 23 et 24 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oWordDoc.Tables(iTableau).AutoFitBehavior (wdAutoFitWindow)

Cordialement.