Comment choisissez-vous une image qui vient d'être collé à MS Word via VBA

Juste collé une image de MS Word en VBA à l'aide de la suite de

wordApp.Selection.PasteSpecial DataType:=wdPasteMetafilePicture, Placement:=wdInLine

Ma pensée est de se déplacer d'un char à gauche, puis sélectionnez l'objet suivant, mais je ne sais pas comment faire.

EDIT:

Bien voici quelques encoraging développement, à l'aide de la ligne suivante, j'ai été en mesure de sélectionner le paragraphe qui comprennent l'image, mais je ne peux pas la manipuler parce que c'est la sélection d'une plage. Faire que quelqu'un sait comment je peux fixer l'image à l'intérieur de la sélection?

wordApp.Selection.Expand wdParagraph

OriginalL'auteur Bill | 2011-10-03

  1. 1

    Voici ce que j'ai utilisé:

    wordApp.Selection.Find.Execute replace:=2
wordApp.Selection.Expand wdParagraph
wordApp.Selection.InlineShapes(1).Select

    OriginalL'auteur Bill

  2. 0

    Je n'ai jamais utilisé de VBA dans Word, mais voici une pensée rapide. Si vous êtes le collage de l'image en ligne et d'essayer d'obtenir une référence, il doit être le dernier élément de la InlineShapes collection. Ce code va vous donner une référence, vous pouvez utiliser:

    thisDocument.InlineShapes(thisDocument.InlineShapes.Count)

    Par exemple, pour définir la largeur de la dernière image collée, vous utiliserez les suivantes:

    thisDocument.InlineShapes(thisDocument.InlineShapes.Count).Width = 100

    Pour stocker la forme d'une variable:

    Dim pastedImage As InlineShape

Set pastedImage = ThisDocument.InlineShapes(ThisDocument.InlineShapes.Count)
    Salut Banjoe j'ai utilisé une autre méthode de référence, mais je pense que votre travail aussi.
    Cette méthode fonctionne parfaitement pour moi comme je suis coller et modifier des images une par une. Merci! +1
    Malheureusement, ce n'est pas fiable. Cette approche a échoué lorsque vous travaillez avec inline formes à l'intérieur de tableaux Word.

    OriginalL'auteur Banjoe

  3. 0

    J'ai également fait la même chose. Il semble que, après le collage d'une image dans word, il est déjà sélectionné. Vous pouvez simplement utiliser l'objet sélectionné avec le simple code ci-dessous:

    Selection.InlineShapes(1).Select

    OriginalL'auteur user2521470

  4. 0

    La solution que j'ai trouvé est d'utiliser la propriété "AlternativeText" pour marquer le collé, les formes anciennes, de sorte que chaque fois qu'une forme n'est pas vieux, il doit être le Nouveau.

    J'utilise la suite: 

    Dim pShape as InLineShape' The shape i'm looking for
Dim iShape as InlineShape

For Each iShape In ActiveDocument.InlineShapes
    If iShape.AlternativeText = "" Then
        Set pShape = iShape
        pShape.AlternativeText = "old"
        Exit For
    End If
Next

    Pas très propre, mais en VBA est toujours le même.

    OriginalL'auteur RoberFJR

  5. 0

    Vous pouvez simplement marquer l'élément à gauche de la position de votre curseur:

    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend

    OriginalL'auteur Aroddo