MSWord 2003 : Resizen van meerdere pics in doc

[Verwijderd]

Hallo allen,

Ik heb de search van o.a. got en google en de online help van MicroSoft gebruikt, maar ik kan niks vinden. Het gaat over het resizen van meerdere pics in een document.

Als ik een install van iets doe, capture ik alle schermen met ALT PRTSCRN en vervolgens plak ik die even in een RTF document. Hierna maak ik het word document en plak 1 voor de captures. Maar die caps wil ik allemaal naar 60% van de originele grootte hebben. Ik kan dat wel per capture doen, maar ik heb er nu wel erg veel.... Dus, weet iemand hoe je meerdere captures tegelijk kan resizen naar 60%. Ik weet wel dat ik voor het capturen zoiets als SnagIt ofzo had kunnen gebruiken, maar dat is nu even geen optie

Alvast bedankt voor het reageren.....

[ Voor 3% gewijzigd door Verwijderd op 16-09-2004 11:54 ]

[André]

Micro$oft wordt niet gewaardeerd, doe dan gewoon Microsoft. En voor je probleem: ik denk toch dat je ze 1 voor 1 bijlangs moet

[BtM909]

André schreef op 16 september 2004 @ 11:17:
En voor je probleem: ik denk toch dat je ze 1 voor 1 bijlangs moet

Valt wel mee hoor Je zou kunnen kijken naar VBA (macro's e.d.):

Je kan alle inlineshapes aflopen en de afmetingen wijzigen. Enige probleem is dat VBA de hoogte en breedte instelt (je kan ook alleen hoogte instellen, met aspect ratio lock) en niet met percentages werkt. Maar ook dat is te programmeren

[Verwijderd]

Andre, Ik heb de naam Micro$oft zoals je vroeg aangepast naar Microsoft. Ik had het geeneens door het is volgens mij een soort van automatisme..... Voortaan geen Micro$oft meer maar gewoon MicroSoft, of mag de hoofdletter S ook niet???

Maargoed, genoeg offtopic, Dank je wel BtM0909! Ik heb nu een macro, die ziet er als volgt uit.... Op zich hoef ik nu maar op 1 knop te drukken en hij resized. Als ik alle caps selecteer, werkt het nog niet, enig idee hoe ik dat zou kunnen doen? Ik ben nl niet zo'n macro expert. De oplossing hoeft natuurlijk niet, maar een kick in de goede richting zou welkom zijn.....

Macro:

Sub ResizePic()
'
' ResizePic Macro
'
Selection.InlineShapes(1).Fill.Visible = msoFalse
Selection.InlineShapes(1).Fill.Solid
Selection.InlineShapes(1).Fill.Transparency = 0#
Selection.InlineShapes(1).Line.Weight = 0.75
Selection.InlineShapes(1).Line.Transparency = 0#
Selection.InlineShapes(1).Line.Visible = msoFalse
Selection.InlineShapes(1).LockAspectRatio = msoTrue
Selection.InlineShapes(1).Height = 334.75
Selection.InlineShapes(1).Width = 460.9
Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
Selection.InlineShapes(1).PictureFormat.CropRight = 0#
Selection.InlineShapes(1).PictureFormat.CropTop = 0#
Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
End Sub

[Verwijderd]

Kopieer en plak onderstaande code in een moduleblad in je normal.dot en koppel de methode WijzigFormaatAlleAfbeeldingen() aan een knop of sneltoetcombinatie.
Word zal de rest voor je doen.

code:

Public Sub WijzigFormaatAlleAfbeeldingen()

    On Error GoTo ErrorHandling
    
    Dim intFactor As Integer
    
    intFactor = CInt(InputBox("Vergroot afbeeldingen met xx%:", , "60"))
    
    If intFactor = 0 Then Exit Sub
    
    Call ResizePictures(ActiveDocument, intFactor)
    
ErrorResume:
    Exit Sub

ErrorHandling:
    Select Case Err.Number
        Case 13 '* Gecancelled...
            Resume ErrorResume
        Case Else
            MsgBox "Fout " & Err.Number & " is opgetreden:" & vbCrLf & Err.Description
    End Select

End Sub

'* Verklein de afbeeldingen met 'Factor'%.
'*
Sub ResizePictures(WelkDocument As Document, Factor As Integer)

    For Each iShape In WelkDocument.InlineShapes
        
        With iShape
            .Height = .Height * (Factor / 100)
            .Width = .Width * (Factor / 100)
        End With
    
    Next iShape

End Sub

[Verwijderd]

Bazzel thanks! Het werkt perfect!!!