[VBA / Word] selectie opheffen

[Verwijderd]

Ik voeg een figuur in met wdDialogInsertPicture en bewerk daarna de afmetingen en zet er een border om heen.
Alleen blijft na deze bewerking het figuur geselecteerd staan.
Weet iemand hoe ik deze selectie op kan heffen?

[Maasluip]

De cursor een stukje verplaatsen? Selection.MoveDown Unit:=wdLine, Count:=1

[Verwijderd]

Thanx dat werkt inderdaad.

[sanfranjake]

Welke versie van Word hebben we het over?

[Verwijderd]

word 2000

[Daos]

Je hoeft die plaatjes niet eerst te selecteren als je ze gaat bewerken. Die mypich.Select
kan je weg halen.

[ Voor 22% gewijzigd door Daos op 28-12-2005 19:13 ]

[Verwijderd]

Als ik dat weghaal dan worden de borders er niet meer omheen gezet.

[Daos]

Die borders plaatsen kan je met een zelfde for-loop doen als bij het verkleinen van je plaatje. Het is zelfs mogelijk om alles in 1 for-loop de doen:

Visual Basic:

Sub Linktopicture()
    With Dialogs(wdDialogInsertPicture)
        .Show
    End With
    
    Dim mypicw As InlineShape
    For Each mypicw In ActiveDocument.InlineShapes
        With mypicw
            x = .Width
            If x > 302 Then
                .Width = 302
            End If
            y = .Height
            If y > 227 Then
                .Height = 227
            End If
            
            With .Borders(wdBorderLeft)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth025pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderRight)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth025pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderTop)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth025pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderBottom)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth025pt
                .Color = wdColorAutomatic
            End With
            .Borders.Shadow = False
        End With
    Next
End Sub

offtopic:
Waarom ben je niet gewoon verder gegaan in Meerdere afbeeldingen importeren in word (VBA)?

Hoe heb je trouwens dat probleem met meerdere bestanden invoegen eigenlijk opgelost? Mij lukt dat nog steeds niet.