Discussion :

[cashern]

Bonjour a tous et merci pour votre forum

Je fais parti de la grande famille des novices sur Vba..
Je voudrais savoir comment je peux faire pour recuperer le nom d'une image que je viens d'inserer
Si vous voulez voir le code dite le moi

Merci
Cashern

[Heureux-oli]

Avec le code, c'est toujour mieux !

[cashern]

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
    Dim WrdApp As Word.Application
    Dim WrdDoc As Word.Document
    Dim Fichier As String
    Dim nom_image As String
'
'on y colle l image
'
Selection.InlineShapes.AddPicture FileName:=pub_repertoire & "\" & UCase(pub_user) & ".JPG", _
        LinkToFile:=False, SaveWithDocument:=True
 
 'IL FAUT DONNE UN NOM L IMAGE POUR POUVOIR LA SELECTIONNER ET LA REPLACER
 '
 '
 
        On Error GoTo 0
 
        Set WrdDoc = Word.ActiveDocument
 
        With WrdDoc.InlineShapes(1) 'adapter l'index si d'autres images existantes dans le document
        .Height = 20 'changement dimension image insérée : hauteur
        .Width = 25  'largeur
        .ConvertToShape
        End With  
 
'        With WrdDoc.Shapes(1)
 
        .Top = 267 'position verticale de l'image dans le document
        .Left = 31.45 'position horizontale de l'image dans le document
        .ZOrder msoBringInFrontOfText 'image au premier plan devant le texte
        .ZOrder msoSendBehindText 'option pour image en arriere plan derriere le texte
        End With
 
 
End Sub

Je voudrais recuperer le nom de l image pour apres pouvoir la deplacer.
mais "InlineShapes" ne selectionne pas ma nouvelle image

Merci pour vos reponses

Cashern

[Heureux-oli]

InLineShapes ne permet pas de récupérer le nom de l'image mais son index.

Tu dois récupérer le nom de l'image au moment où tu l'insère, après c'est plus possible.

Si c'est l'image que tu viens d'insérer que tu veux récupérer, il existe d'autres moyens.

Si c'est la dernière,

Code :

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

1
2
3
 
Dim i as byte
i =ActiveDocument.InlineShapes.Count

Ton image est la i + 1

[cashern]

InLineShapes ne permet pas de récupérer le nom de l'image mais son index.

Tu dois récupérer le nom de l'image au moment où tu l'insère, après c'est plus possible.

Si c'est l'image que tu viens d'insérer que tu veux récupérer, il existe d'autres moyens.

Si c'est la dernière,

Code :

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

1
2
3
 
Dim i as byte
i =ActiveDocument.InlineShapes.Count

Ton image est la i + 1

Merci pour ta reponse rapide Heureux-oli

tu me dis qu il y a d autre moyen d inserer une image je suis preneur si je peux recuperer son nom et apres la redimensionner et la deplacer.

Merci
Cashern

[Heureux-oli]

Il faut ajouter des Shapes.

Code :

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

ActiveDocument.Shapes.AddPicture

Et il est possible d'agir directement sur le shape

[cashern]

Il faut ajouter des Shapes.

Code :

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

ActiveDocument.Shapes.AddPicture

Et il est possible d'agir directement sur le shape

Merci pour ta reponse

Je ne comprend pas ce qu il faut que je fasse sur le shapes
Ca m insere bien l image et apres je n arrrive pas a la selectioner pour la deplacer

Cashern

[Heureux-oli]

tu ne dois pas la sélectionner.

Code :

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

1
2
3
4
5
6
Dim sh As Shape
Set sh = ActiveDocument.Shapes.AddPicture("c:\temp\b.jpg")
With sh
    .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
    .Top = CentimetersToPoints(10)
End With

On peut la manipuler directement lors de l'insertion.

[cashern]

oki merci

maintenant j ai message d erreur sur cette ligne de code tu as une idee de ce qui ne va pas

set sh = ActiveDocument.Shapes.AddPicture(pub_repertoire & "\" & UCase(pub_user) & ".JPG")

[cashern]

MERCI

Je viens de comprendre

c cool ca fonctionne