Handtekening plaatsen met macro

[Marco999]

Hallo,
Ik zit met een probleempje. Ik ben een document voor m'n werk aan het maken waar ik dmv een macro een handtekening in wil zetten.
De macro die ik hiervoor gebruik is

Sub Handtekening()
    ActiveSheet.Unprotect
    InsertPictureInRange "C:\Werkmap\Handtekening.bmp", _
        Range("di175:ew195")
    ActiveSheet.Protect
End Sub

Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range)
' inserts a picture and resizes it to fit the TargetCells range
Dim p As Object, t As Double, l As Double, w As Double, h As Double
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    If Dir(PictureFileName) = "" Then Exit Sub
    ' import picture
    Set p = ActiveSheet.Pictures.Insert(PictureFileName)
    ' determine positions
    With TargetCells
        t = .Top
        l = .Left
        w = .Offset(0, .Columns.Count).Left - .Left
        h = .Offset(.Rows.Count, 0).Top - .Top
    End With
    ' position picture
    With p
        .Top = t
        .Left = l
        .Width = w
        .Height = h
    End With
    Set p = Nothing
End Sub

Dit werkt allemaal prima, alleen als ik het document nu bij een collega op z'n PC open, verschijnt de handtekening die hij in C:/werkmap/ heeft staan.
Met Office 2000 hadden we hier geen last van, met Office 2010 wel...

Iemand een idee?

Alvast bedankt!

 

[Ron321]

Ik snap het probleem niet.
Je roept met je macro die handtekening op en vervolgens zeg je dat dat niet moet.

 

[popipipo]

Als je de naam 'handtekening.bmp' afhankelijk gaat maken van een invoer cel?

    InsertPictureInRange "C:\Werkmap\" & Range("H1") & ".bmp", _
        Range("di175:ew195")

in H1 staat dan de naam van de ondertekenaar.
Alle handtekeningen zullen dan wel in 'C:\Werkmap\' moeten staan va alle gebruikt pc's.