excel - 如何在选择中的每个单元格周围添加文本框/形状？

Question

是否有 VBA 代码可以在选择的每个单元格周围添加文本框。文本框应该是单元格的大小(类似于边框)？

Answer 1

您可以使用 .AddTextbox方法。循环遍历您选择的单元格，并使用单元格的尺寸属性来设置文本框的尺寸。

Sub cellsToTextbox()

    Dim cel As Range

    For Each cel In Selection
        cel.Worksheet.Shapes.AddTextbox 1, cel.Left, cel.Top, cel.Width, cel.Height
    Next cel

End Sub

修改文本框属性

如果您想更改任何文本框属性，我会在您创建文本框本身时进行。我的首选方法是包装整个 .AddTextbox()方法转换为 With声明，并在那里更改各个属性。

这是一个更改 VerticalAnchor 的示例属性(我还将您将此处的列大小从 your comment 更改为此示例的请求移至此示例):

Sub cellsToTextbox()

    Dim cel As Range

    For Each cel In Selection
        With cel.Worksheet.Shapes.AddTextbox(1, cel.Left, cel.Top, _
                        cel.Resize(ColumnSize:=3).Width, cel.Height)

            .TextFrame2.VerticalAnchor = msoAnchorMiddle

        End With
    Next cel

End Sub