Actie in Format Tabblad registreren met macro

Status
Niet open voor verdere reacties.
R

reneemettrie

Terugkerende gebruiker
Lid geworden
1 aug 2006
Berichten
1.233
Ik heb in een Word doc een aantal screenshots die te bleek uitvallen. Daarom wil ik een Recolor (Black and White 75%) opdracht (Tabblad Format) uitvoeren met een macro. Ken niets van Word VBA, dus probeerde het met de Recorder. Maar zodra deze gestart is wordt het Tabblad Format inactief... Hoe los ik dit op?
 
Je kunt met een macro wel door je opbjecten heenlopen; daarbij heb je dus onderscheid tussen shapes en inlineshapes. Soms moet je ze converteren om de juiste bewerkingen te kunnen toepassen.
Stoei eens wat met deze macro, zou ik zeggen :)

Code: 
Sub mcrRecolor()
Dim ishp As InlineShape
Dim shp As Shape
Dim BrightnessContrast As PictureEffect
    
    For Each ishp In ActiveDocument.InlineShapes
        ishp.ConvertToShape
    Next ishp
    For Each shp In ActiveDocument.Shapes
        With shp.Fill.PictureEffects
            Set BrightnessContrast = .Insert(msoEffectBrightnessContrast)
            BrightnessContrast.EffectParameters(1).Value = -0.2
            BrightnessContrast.EffectParameters(2).Value = 0.25
        End With
    Next shp

End Sub
 
Alvast bedankt, Octafish!
Ga er wat mee spelen.
Alleen begrijp ik de code niet helemaal (heb ook nog nooit met die Office library gewerkt):
Code: 
Set BrightnessContrast = .Insert(msoEffectBrightnessContrast)
            BrightnessContrast.EffectParameters(1).Value = -0.2
            BrightnessContrast.EffectParameters(2).Value = 0.25

EffectParameters en msoEffectBrightnessContrast: No Help Available...
 
Ik had gezocht op PictureEffect en vond deze code als voorbeeld. Er zijn vast meer parameters die je in kan stelle, maar de hulp daarover is nogal belabberd :).
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan