MS Excel 中的倒置文本

• 下载示例 - 6.21 KB

引言

这里提供了一种在 Excel 中显示倒置文本的不同方法。它使用 WordArt 来显示来自任何单元格的倒置文本。

背景

有时在工作中，我们会遇到需要完成一些特殊任务的情况。这对我来说就是其中之一。

Using the Code

在 Excel 中创建一个 WordArt，然后右键单击它，选择“设置 WordArt 格式”，并将其更改为看起来几乎像简单的纯文本。将其旋转 180 度，使其倒置。

然后，通过使用 Alt+F11 打开 MS Excel 中的 Visual Basic 编辑器，并通过双击插入 WordArt 的工作表来输入代码。

Private Sub Worksheet_Change(ByVal Target As Range)
    Shapes(1).TextEffect.Text = Cells(1, 1)
    Shapes(1).Width = Len(Cells(1, 1)) * 6.5
End Sub

解释

这段代码执行两项操作：

1. 获取单元格（第 1 行，第 1 列）中的文本，并将 WordArt 的文本设置为相同的内容。
2. 然后，根据文本的字符串长度调整 WordArt 的宽度。

目前，Width 调整代码对于数字来说效果很好。我只想倒置显示数字。请相应地更改乘数以适应其他字体和字母。

关注点

可以通过分析更多数据来获得更准确的宽度，从而改进 Width 调整部分。这只是一个新手解决特殊问题的方法 :-)

历史

• 首次提交版本：2007/10/13。