如何根据字符串长度自动调整工作表CommandButton的宽度？

要实现工作表上按钮宽度自动适配标题文本，核心是准确计算文本的实际显示宽度，而非仅统计字符数。可以利用Excel的Application.TextWidth函数，它会根据字体设置计算文本的真实宽度，完美解决不同字符（如Z和i）宽度差异的问题，再加上适当内边距优化显示效果。

修改后的代码（Forms按钮） #

Sub FixButtonWidth()
    Dim rbtn As Button
    Dim ShowThis As String
    Dim textWidth As Double
    Dim padding As Double
    
    ' 创建按钮
    Set rbtn = ActiveSheet.Buttons.Add(0, 0, 30, 20)
    ' 获取用户输入的标题
    ShowThis = InputBox("输入按钮标题", "按钮名称", "")
    If ShowThis = "" Then Exit Sub ' 空输入直接退出
    
    ' 设置按钮标题
    rbtn.Caption = ShowThis
    
    ' 统一按钮字体（确保计算宽度时字体匹配）
    rbtn.Font.Name = "Calibri"
    rbtn.Font.Size = 11
    
    ' 临时同步活动单元格字体与按钮一致，保证宽度计算准确
    With ActiveCell.Font
        .Name = rbtn.Font.Name
        .Size = rbtn.Font.Size
        .Bold = rbtn.Font.Bold
    End With
    
    ' 计算文本实际显示宽度
    textWidth = Application.TextWidth(ShowThis)
    ' 设置左右内边距（避免标题贴紧按钮边框，可按需调整）
    padding = 20
    
    ' 最终设置按钮宽度
    rbtn.Width = textWidth + padding
    ' 如需自动调整高度，可取消下方注释
    ' rbtn.Height = Application.TextHeight(ShowThis) + 10
End Sub

关键说明 #

• Application.TextWidth：根据当前字体（字号、字重、字体类型）计算文本的真实宽度，彻底解决字符宽度差异问题。
• 内边距设置：加入20像素的内边距（左右各10）是为了让标题和按钮边框之间保留合适空白，提升美观度，可根据需求调整数值。
• 字体同步：因为Application.TextWidth依赖活动单元格的字体设置，所以需要先将活动单元格字体与按钮字体统一，确保宽度计算准确。

若为ActiveX CommandButton的适配代码 #

如果你的按钮是ActiveX类型的CommandButton，可使用以下代码：

Sub AdjustActiveXButtonWidth()
    Dim btn As OLEObject
    Dim ShowThis As String
    Dim textWidth As Double
    Dim padding As Double
    
    ' 创建ActiveX按钮
    Set btn = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Left:=0, Top:=0, Width:=30, Height:=20)
    ShowThis = InputBox("输入按钮标题", "按钮名称", "")
    If ShowThis = "" Then Exit Sub
    
    ' 设置按钮标题与字体
    With btn.Object
        .Caption = ShowThis
        .Font.Name = "Calibri"
        .Font.Size = 11
    End With
    
    ' 同步活动单元格字体
    With ActiveCell.Font
        .Name = btn.Object.Font.Name
        .Size = btn.Object.Font.Size
        .Bold = btn.Object.Font.Bold
    End With
    
    textWidth = Application.TextWidth(ShowThis)
    padding = 20
    btn.Width = textWidth + padding
End Sub

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