IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Word Discussion :

[VBA-Word]Modification d'une image pour l'insertion de liens hypertexte


Sujet :

Word

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Étudiant
    Inscrit en
    Août 2006
    Messages
    12
    Détails du profil
    Informations personnelles :
    Âge : 42
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Août 2006
    Messages : 12
    Par défaut [VBA-Word]Modification d'une image pour l'insertion de liens hypertexte
    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)

  2. #2
    Membre averti
    Profil pro
    Étudiant
    Inscrit en
    Août 2006
    Messages
    12
    Détails du profil
    Informations personnelles :
    Âge : 42
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Août 2006
    Messages : 12
    Par défaut
    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 ?

Discussions similaires

  1. Sélection d'une image et affectation d'un lien hypertexte
    Par RemyL dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 06/02/2009, 17h41
  2. Réponses: 3
    Dernier message: 06/12/2008, 19h34
  3. chargement d'une image pour modification
    Par eric062 dans le forum VB.NET
    Réponses: 8
    Dernier message: 25/11/2008, 09h03
  4. [VBA-E] maj d'une image dans un doc word
    Par dev81 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 19/04/2007, 16h59
  5. [FLASH 5]un bouton dans une image pour revenir sur une scene
    Par patato valdes dans le forum Flash
    Réponses: 7
    Dernier message: 28/04/2004, 20h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo