Discussion :

[Periph]

Bonjour,

J'ai un petit soucis, je cherche à modifier une image pour rechercher une zone de texte et pour créer un lien hypertexte dans le document à partir de ce texte.

Par exemple, dans mon schéma, j'ai un encadré avec "lien1" et dans mon document qui correspond à ce lien.

Mon principal problème est lors du parcour du document, repérer un dessin, puis de transformer le dessin de façon à se qu'on puisse le modifier.

J'ai essayer d'enregistrer une macro en faisant l'opération manuellement, mais elle n'enregistre rien (Edition->Modifier Image)

[Periph]

Pour le moment, voilà ce que j'ai fait :

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
Sub FigureInfo()
    Dim iShapeCount As Integer
    Dim iILShapeCount As Integer
    Dim DocThis As Document
    Dim J As Integer
    Dim sTemp As String
 
    Set DocThis = ActiveDocument
    Documents.Add
 
    iILShapeCount = DocThis.InlineShapes.Count
    If iILShapeCount > 0 Then
        Selection.TypeText Text:="Inline Shapes"
        Selection.TypeParagraph
    End If
    For J = 1 To iILShapeCount
        Selection.TypeText Text:="Shape " & J
        Selection.TypeParagraph
        sTemp = " Height (points): "
        sTemp = sTemp & DocThis.InlineShapes(J).Height
        Selection.TypeText Text:=sTemp
        Selection.TypeParagraph
        sTemp = " Width (points): "
        sTemp = sTemp & DocThis.InlineShapes(J).Width
        Selection.TypeText Text:=sTemp
        Selection.TypeParagraph
        sTemp = " Height (pixels): "
        sTemp = sTemp & PointsToPixels(DocThis.InlineShapes(J).Height, True)
        Selection.TypeText Text:=sTemp
        Selection.TypeParagraph
        sTemp = " Width (pixels): "
        sTemp = sTemp & PointsToPixels(DocThis.InlineShapes(J).Width, False)
        Selection.TypeText Text:=sTemp
        Selection.TypeParagraph
        Selection.TypeParagraph
        ' Pour modifier les images
        DocThis.InlineShapes(J).Activate
    Next J
End Sub

Ce code me permet de trouver les images d'un document et de lister quelques unes de leur propriétés. J'aouvre également l'éditeur d'image.

Par contre quand je crée un lien hypertexte dans l'image, lorsque je ferme l'image, je n'ai plus accès au lien. On voit qu'il est présent (texte souligné en bleu) mais on ne peut pas cliqué dessus. Quelqu'un a une idée ?