有没有办法给visio添加数字签名？是否可以使用VBA在Visio窗体上显示我的数字签名？

Sub ShowDigitalSignature()
    Dim sig As Visio.DigitalSignature
    Dim win As Visio.Window
    
    ' 获取当前文档的数字签名
    Set sig = ActiveDocument.DigitalSignature
    
    ' 检查是否存在数字签名
    If Not sig Is Nothing Then
        ' 创建一个新的窗口来显示数字签名
        Set win = Documents.Add("", visTypeDrawing).Windows.Item(1)
        win.Caption = "Digital Signature"
        
        ' 在窗口上显示数字签名信息
        win.View.Drawings.ItemFromID(1).Text = "Digital Signature:"
        win.View.Drawings.ItemFromID(2).Text = "Subject: " & sig.Subject
        win.View.Drawings.ItemFromID(3).Text = "Issuer: " & sig.Issuer
        win.View.Drawings.ItemFromID(4).Text = "Valid From: " & sig.ValidFrom
        win.View.Drawings.ItemFromID(5).Text = "Valid To: " & sig.ValidTo
    Else
        MsgBox "No digital signature found."
    End If
End Sub