如何将文本和公式组合到形状的不同行中？

Question

我有一个形状，我想让它显示文本“当前预算”，然后在其下方一行显示工作表单元格（例如 A1）中的预算。这可能吗？

Answer 1

首先选择另一个单元格，比如说A2，并输入：

="Current Budget" & CHAR(10) & A1

和格式A2 使用 wrap。然后运行：

Sub dural()
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 285.75, 51, 223.5, _
        179.25).Select
    Selection.Formula = "=A2"
End Sub

（如果您不想使用宏，可以手动完成）