调整文本框和单元格的大小相同(Microsoft Excel)
您已经知道Excel允许您在工作表中创建文本框。在某些时候,您可能需要创建一个与特定单元格大小完全相同的文本框。如果仅要创建一个或两个这样的文本框,最简单的方法是执行以下步骤:
。显示绘图工具栏。
。单击文本框工具。
。单击并拖动以创建文本框时,按住Alt键。
当您按住Alt键时,它会强制Excel将文本框的侧面“捕捉”到一个绘图网格,该网格恰巧与工作表中的单元格边界匹配。结果是一个文本框正好是所需的大小。
如果您需要一次创建很多这样的文本框,则可以永久启用对齐网格功能。只需选择“绘图”(在“绘图”工具栏上)。捕捉|到网格。
如果要在许多不同的工作簿上创建许多这样的文本框,则可以使用宏来创建所需的文本框。下面的宏将在所选单元格的正上方创建一个文本框,并将其大小设置为与所选单元格的大小完全相同:
Sub TextBox2Cell() With ActiveCell ActiveSheet.Shapes.AddTextbox _ msoTextOrientationHorizontal, .Left, _ .Top, .Width, .Height End With End Sub
在宏中进行很小的更改后,您可以对其进行修改,以便它将创建与所选单元格范围一样大的文本框:
Sub TextBox2Selection() If TypeName(Selection) = "Range" Then With Selection ActiveSheet.Shapes.AddTextbox _ msoTextOrientationHorizontal, .Left, _ .Top, .Width, .Height End With End If End Sub
无论使用哪种方法创建文本框(手动或宏),都应注意,如果通过更改列宽或行高来调整单元格的大小,则文本框的大小也将更改以匹配新单元格尺寸。
注意:
如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。
_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。
本技巧(2192)适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本: