Discussion :

[Courtoim]

Bonjour,

Je travaille sur une macro CATIA qui permet d'extraire des données de CATIA pour les intégrer dans Word.

Dans ce cadre là, je suis amené à insérer une image issue de CATIA dans un doc Word. Je souhaite pouvoir permettre à l'utilisateur de définir une zone de collage de cette image.

A l'heure actuelle, je sais copier une image dans un Word mais je ne sais pas comment faire pour permettre à l'utilisateur de définir la zone de collage (un peu comme sur Excel où on insérerai une image dans une cellule lambda sélectionnée par l’utilisateur grâce à une inputbox qui s'affiche à l'ouverture du doc).

Qq un aurait il un code ou bout de code qui permettrait d'insérer une image dans une zone définie par l'utilisateur lui-même ?

Merci pour l'aide,
MC

[Invité]

Bonjour,

Solution à essayer. Le principe est de définir N signets qui accueilleront les images et de choisir le signet d'insertion via un Userform. Bien entendu le choix de l'image pourrait être également réalisé depuis le Userform.


Dans un module du document :

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
 
Option Explicit
 
Public SignetEnCours As Bookmark
Public MonRepertoire As String
Public MonImage As String
 
Sub TestAjouterUneImage()
 
    MonRepertoire = "XXXX"
    MonImage = "YYYY.JPG"
 
    With UserFormInsererImage
         For Each SignetEnCours In ActiveDocument.Bookmarks
             .ListBoxSignetsImages.AddItem SignetEnCours.Name
         Next SignetEnCours
         .Show
    End With
 
End Sub
 
 
Sub AjouterUneImage(ByVal NomDuSignetImage As String, ByVal RepertoireImage As String, ByVal NomDeLIMage As String)
 
  For Each SignetEnCours In ActiveDocument.Bookmarks
      If SignetEnCours.Name = NomDuSignetImage Then
         SignetEnCours.Range.InlineShapes.AddPicture FileName:=RepertoireImage & "\" & NomDeLIMage, LinkToFile:=False, SaveWithDocument:=True
      End If
 Next SignetEnCours
 
End Sub

Dans le userform comprenant un ListBox et un CommandButton :

Code :

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

1
2
3
4
5
6
7
8
 
Option Explicit
 
Private Sub BoutonInsererImage_Click()
 
        AjouterUneImage ListBoxSignetsImages, MonRepertoire, MonImage
 
End Sub

Pièce jointe 227570

Cordialement.

[Courtoim]

Hello, désolé pour le retard de réponse.

Merci pour ton aide. C'est une bonne solution alternative à ce que je souhaitais à ceci près qu'elle nécessite pour l'utilisateur de sélectionner le signet en question et surtout de connaitre ce qui se cache derrière l’appellation dudit signet (position sur la feuille). Ceci dit, je vais essayer de m'en inspirer.

Merci, A+
MC

[Invité]

C'est une bonne solution alternative à ce que je souhaitais à ceci près qu'elle nécessite pour l'utilisateur de sélectionner le signet en question et surtout de connaitre ce qui se cache derrière l’appellation dudit signet (position sur la feuille).

Bonjour,

Merci d'avoir répondu.

Dans votre message d'origine, vous indiquiez qu'il fallait permettre à l'utilisateur de définir la zone de collage.

A l'heure actuelle, je sais copier une image dans un Word mais je ne sais pas comment faire pour permettre à l'utilisateur de définir la zone de collage (un peu comme sur Excel où on insérerai une image dans une cellule lambda sélectionnée par l’utilisateur grâce à une inputbox qui s'affiche à l'ouverture du doc).

Si l'utilisateur insère un signet dans le document et lui donne un nom explicite, il pourra positionner correctement les images avec la macro dans la foulée. Ce n'est pas compliqué.

Cordialement.