VBA Help with naming object

[keith_shoaf]

Hello everyone! I am trying to get a signature line added to my excel workbook using VBA. I can get the signature line inserted to the worksheet I want using the following:

ActiveWorkbook.Signatures.AddSignatureLine "{00000000-0000-0000-0000-000000000000}"

But then I need to move it to get the signature block in the correct position. But to do that, I need to be able to call it by name. But I cannot figure out how to name it. I know it is given a default name (“Picture X”). But of course that changes each time you add a signature line. Is there a way to name the “picture” when creating or even just capture the name when it is added so that I can select it to move its position? Or is there a way to position it when adding?

Thanks in advance for any assistance you can provide.

 

[Russell Hauf]

This should hopefully get you going...worked for me.

Sub TestSig()
    Dim objSig As Signature
    Dim shp As Shape
    
    Set objSig = ActiveWorkbook.Signatures.AddSignatureLine("{00000000-0000-0000-0000-000000000000}")
    
    Set shp = objSig.SignatureLineShape
    shp.Left = shp.Parent.Range("B5").Left
    shp.Top = shp.Parent.Range("B5").Top
        
    Set objSig = Nothing
    Set shp = Nothing

End Sub

Have fun!

 

[keith_shoaf]

Thank you so much Mr. Hauf!! Works perfectly!