Marleenvisscher
Gebruiker
- Lid geworden
- 8 nov 2009
- Berichten
- 23
Goedemorgen,
Ik heb een macro gemaakt waarbij ik een afbeelding in de koptekst plaats. Deze werkte goed, de afbeelding kwam in zijn geheel in de koptekst te staan. Helaas is er iets in een instelling gewijzigd, waardoor de afbeelding nu verkeerd uitgelijnd wordt. In plaats dat de bovenkant van de afbeelding gelijk loopt met de bovenkant van het vlak van de koptekst, staat nu de afbeelding "boven" het vlak van de koptekst.
Dit is de macrocode.
Sub Macro1()
'
' Macro1 Macro
' Macro opgenomen op 26-9-2011 door Marleen Visscher
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.InlineShapes.AddPicture FileName:= _
"C:\Documents and Settings\VisscherM\Mijn documenten\Mijn afbeeldingen\Briefpapier\Briefpapier.png" _
, LinkToFile:=False, SaveWithDocument:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Bvd.
Met vriendelijke groet Marleen Visscher
Ik heb een macro gemaakt waarbij ik een afbeelding in de koptekst plaats. Deze werkte goed, de afbeelding kwam in zijn geheel in de koptekst te staan. Helaas is er iets in een instelling gewijzigd, waardoor de afbeelding nu verkeerd uitgelijnd wordt. In plaats dat de bovenkant van de afbeelding gelijk loopt met de bovenkant van het vlak van de koptekst, staat nu de afbeelding "boven" het vlak van de koptekst.
Dit is de macrocode.
Sub Macro1()
'
' Macro1 Macro
' Macro opgenomen op 26-9-2011 door Marleen Visscher
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.InlineShapes.AddPicture FileName:= _
"C:\Documents and Settings\VisscherM\Mijn documenten\Mijn afbeeldingen\Briefpapier\Briefpapier.png" _
, LinkToFile:=False, SaveWithDocument:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Bvd.
Met vriendelijke groet Marleen Visscher