Office 365带宏Excel平板手写签名/绘图输入控件方案求问

针对你的带宏Excel文件，结合Office 365平板端的特性，以下是几种实用的实现方案：

方案1：利用内置墨迹功能+VBA快速封装 #

Office 365原生支持墨迹输入，通过VBA可以将该功能封装为便捷的触发按钮，适配手指/笔输入：

• 步骤：
  1. 在工作表添加一个大尺寸形状（如矩形）作为触发按钮，适配平板手指点击
  2. 右键按钮分配宏，添加以下VBA代码：

Sub InsertSignatureInk()
    Dim inkObj As InkPicture
    ' 在指定位置创建墨迹输入控件（可调整参数适配平板屏幕）
    Set inkObj = Me.InkPictures.Add(Left:=100, Top:=200, Width:=400, Height:=150)
    With inkObj
        .AllowPencil = True ' 允许笔输入
        .AllowTouch = True ' 允许手指触摸输入
        .AutoInkSelection = True ' 自动识别墨迹范围
        .Name = "SignatureInk"
    End With
End Sub

Sub SaveSignatureAsImage()
    Dim inkObj As InkPicture
    On Error Resume Next
    Set inkObj = Me.InkPictures("SignatureInk")
    If Not inkObj Is Nothing Then
        ' 将墨迹转为图片插入指定单元格
        inkObj.CopyPicture
        Me.Range("A1").PasteSpecial
        ' 删除临时墨迹控件
        inkObj.Delete
    End If
End Sub

• 优势：无需额外控件，原生兼容性好，代码轻量，平板端直接支持手指/笔书写

方案2：自定义UserForm弹窗式签名控件 #

通过VBA创建带墨迹输入框的弹窗，适合集中式签名场景：

• 步骤：
  1. 插入UserForm，添加InkPicture控件（调整大尺寸适配平板）和“确认签名”按钮
  2. 为按钮和窗体初始化添加以下代码：

Private Sub cmdConfirm_Click()
    ' 将墨迹复制到工作表指定位置
    Me.InkPicture1.CopyPicture
    ThisWorkbook.Sheets("Sheet1").Range("B5").PasteSpecial
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    With Me.InkPicture1
        .AllowPencil = True
        .AllowTouch = True
        .Width = 380
        .Height = 120
        .BorderStyle = fmBorderStyleSingle ' 添加边框明确输入区域
    End With
End Sub

• 优势：签名区域独立，避免干扰工作表其他内容，适合需要引导用户签名的场景

方案3：绑定单元格的墨迹输入区域 #

直接指定工作表某单元格区域作为手写输入区，无需额外弹窗：

Sub EnableCellInkInput()
    Dim targetRange As Range
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("C1:C3")
    ' 启用该区域的墨迹输入功能
    targetRange.Ink.Enabled = True
    targetRange.Ink.AllowPencil = True
    targetRange.Ink.AllowTouch = True
    ' 设置墨迹默认样式
    targetRange.Ink.DefaultDrawingAttributes.Color = RGB(0, 0, 0)
    targetRange.Ink.DefaultDrawingAttributes.Width = 2
End Sub

• 优势：用户直接在单元格区域书写，交互直观，适合需要与表格内容关联的签名场景

注意事项 #

• 确保Excel文件保存为.xlsm格式（启用宏），平板端Office 365需允许宏运行
• 墨迹控件的尺寸需适配平板屏幕，建议设置较大的输入区域方便手指操作
• 若需要将签名导出为独立文件，可在VBA中添加SavePicture方法将图片导出为PNG/JPG格式

内容的提问来源于stack exchange，提问作者arjan kroon