Excel中形状（文本框、图形等）的文本属于绘图对象体系，无法直接通过「设置单元格格式」面板套用日期、会计专用、百分比这类单元格格式，以下是两种可行的解决思路：

手动快速方案（无需代码） #

• 单元格链接法：右键目标形状→选择「编辑文本」，在文本框内输入=目标单元格地址（例如=B2），形状会自动同步该单元格的内容与格式，后续修改单元格格式即可同步更新形状内的显示效果，这种方式支持内容编辑和格式实时同步。
• 静态粘贴法：先在单元格中设置好格式与内容，复制后右键形状→选择「粘贴为图片」，适合不需要后续编辑的静态展示场景。

VBA自定义格式方案（灵活适配需求） #

如果需要直接修改形状内已有文本的格式，可通过VBA代码实现，以下是常用格式的示例代码：

1. 转换为百分比格式 #

Sub ShapeTextToPercent()
    Dim targetShp As Shape
    ' 仅处理当前选中的单个形状
    Set targetShp = ActiveWindow.Selection.ShapeRange(1)
    
    ' 将形状内的数字转为保留2位小数的百分比格式
    targetShp.TextFrame2.TextRange.Text = Format(Val(targetShp.TextFrame2.TextRange.Text), "0.00%")
End Sub

2. 转换为日期格式 #

Sub ShapeTextToDate()
    Dim targetShp As Shape
    Set targetShp = ActiveWindow.Selection.ShapeRange(1)
    
    ' 转为yyyy-mm-dd格式，可根据需求修改格式字符串
    targetShp.TextFrame2.TextRange.Text = Format(CDate(targetShp.TextFrame2.TextRange.Text), "yyyy-mm-dd")
End Sub

3. 转换为会计专用格式 #

Sub ShapeTextToAccounting()
    Dim targetShp As Shape
    Set targetShp = ActiveWindow.Selection.ShapeRange(1)
    
    ' 人民币会计专用格式，保留2位小数
    targetShp.TextFrame2.TextRange.Text = Format(Val(targetShp.TextFrame2.TextRange.Text), "¥#,##0.00")
End Sub

批量处理多个形状 #

如果需要一次性处理工作表内的所有文本类形状，可使用以下代码：

Sub BatchFormatShapes()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        ' 仅处理文本框类型的形状，可根据需求修改筛选条件
        If shp.Type = msoTextBox Then
            ' 此处替换为需要的格式，示例为百分比格式
            shp.TextFrame2.TextRange.Text = Format(Val(shp.TextFrame2.TextRange.Text), "0.00%")
        End If
    Next shp
End Sub

使用步骤：

1. 选中目标形状（批量处理可跳过此步）
2. 按Alt+F11打开VBA编辑器
3. 插入新模块，粘贴对应代码
4. 点击运行按钮执行代码

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