Met een macro een logo in de koptekst plaatsen

[Twinky]

Al enige tijd ben ik aan het uitzoeken of ik in een (beveiligd)documentsjabloon (dotm) een logo kan plaatsen op een vast plek binnen de koptekst.
Tot nu toe heb ik het, mede dankzij dit forum :thumb: , inmiddels zo ver dat de beveiliging er af gehaald wordt, het logo geplaatst en de beveiliging er weer op gaat.

Nu wil ik graag het logo 20 mm van rechts en 20 mm van boven geplaatst hebben. Deze positionering krijg ik met geen mogelijkheid voor elkaar, dus vandaar mijn vraag hier.

De code tot nu toe:

Sub logo_plaatsen()
'
' logo_plaatsen Macro
'
'
Dim blnProtected As Boolean

blnProtected = False 'zet standaard uit

blnProtected = (ActiveDocument.ProtectionType = wdAllowOnlyFormFields)
If blnProtected Then 'als het beveiligd is, haal de beveiliging er af.
ActiveDocument.Unprotect
End If

    Selection.InlineShapes.AddPicture FileName:= _
        "N:\Public\LOGOS\logo-SCC\Logo.jpg", LinkToFile:=False, _
        SaveWithDocument:=True
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        If ActiveWindow.Panes.Count = 2 Then
            ActiveWindow.Panes(2).Close
        End If
        ActiveWindow.View.SplitSpecial = wdPaneCurrentPageHeader
    Else
        ActiveWindow.View.SeekView = wdSeekCurrentPageHeader
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

If blnProtected Then 'als het document beveiligd was, zet de beveiliging er weer op.
ActiveDocument.Protect Password:="", NoReset:=True, Type:=wdAllowOnlyFormFields
End If

End Sub

 

[Twinky]

Nog meer gelezen en via Windows Secrets er uit gekomen.
De code voor wie het ook kan gebruiken:

Sub logo_plaatsen()
'
' logo_plaatsen Macro
'
'
Dim blnProtected As Boolean

blnProtected = False 'zet standaard uit

blnProtected = (ActiveDocument.ProtectionType = wdAllowOnlyFormFields)
If blnProtected Then 'als het beveiligd is, haal de beveiliging er af.
ActiveDocument.Unprotect
End If

Dim Shp As Shape
    Set Shp = ActiveDocument.InlineShapes.AddPicture(FileName:="N:\Public\LOGOS\logo-SCC\Logo.jpg", _
        SaveWithDocument:=True).ConvertToShape

With Shp
  .LockAspectRatio = True
  .Left = CentimetersToPoints(2)
  .Top = CentimetersToPoints(2)
  .WrapFormat.Type = wdWrapBehind
End With

    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        If ActiveWindow.Panes.Count = 2 Then
            ActiveWindow.Panes(2).Close
        End If
        ActiveWindow.View.SplitSpecial = wdPaneCurrentPageHeader
    Else
        ActiveWindow.View.SeekView = wdSeekCurrentPageHeader
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

If blnProtected Then 'als het document beveiligd was, zet de beveiliging er weer op.
ActiveDocument.Protect Password:="", NoReset:=True, Type:=wdAllowOnlyFormFields
End If

End Sub