如何：调整 NamedRange 控件的大小
将 NamedRange 控件添加到 Microsoft Office Excel 文档时，可以设置该控件的大小；但是，您可能需要在以后调整其大小。
**适用于：**本主题中的信息适用于 Excel 2013 和 Excel 2010 的文档级项目和应用程序级项目。有关更多信息，请参见按 Office 应用程序和项目类型提供的功能。
在文档级项目中，可以在设计时或运行时调整命名范围的大小。您还可以在运行时在应用程序级外接程序中调整命名范围的大小。
本主题介绍了以下任务：
在设计时调整 NamedRange 控件的大小
在运行时在文档级项目中调整 NamedRange 控件的大小
在运行时在应用程序级项目中调整 NamedRange 控件的大小
在设计时调整 NamedRange 控件的大小
通过在**“定义名称”**对话框中重新定义命名范围的大小，可以调整其大小。
使用“定义名称”对话框调整命名范围的大小
右击 NamedRange 控件。
在快捷菜单上，单击**“管理命名范围”**。
将出现**“定义名称”**对话框。
选择要调整大小的命名范围。
清除**“引用”**框。
选择要用来定义命名范围大小的单元格。
单击**“确定”**。
在运行时在文档级项目中调整 NamedRange 控件的大小
可以使用 RefersTo 属性，以编程方式调整命名范围的大小。
.gif "说明") 说明 |
|---|
在“属性”窗口中，RefersTo 属性被标记为只读。 |
以编程方式调整命名范围的大小
在 Sheet1 的**“A1”**单元格上创建一个 NamedRange 控件。
Dim NamedRange1 As Microsoft.Office.Tools.Excel.NamedRange = _ Me.Controls.AddNamedRange(Me.Range("A1"), "NamedRange1")Microsoft.Office.Tools.Excel.NamedRange NamedRange1 = this.Controls.AddNamedRange(this.Range["A1"], "NamedRange1");调整命名范围的大小使其包括单元格**“B1”**。
NamedRange1.RefersTo = "=Sheet1!$A$1:$B$1"NamedRange1.RefersTo = "=Sheet1!$A$1:$B$1";
在运行时在应用程序级项目中调整 NamedRange 控件的大小
您可以在运行时在任何打开的工作表上调整 NamedRange 控件的大小。有关如何使用应用程序级外接程序向工作表添加 NamedRange 控件的更多信息，请参见如何：向工作表添加 NamedRange 控件。
以编程方式调整命名范围的大小
在 Sheet1 的**“A1”**单元格上创建一个 NamedRange 控件。
Dim NativeWorksheet As Microsoft.Office.Interop.Excel.Worksheet = _ Application.ActiveSheet Dim worksheet As Microsoft.Office.Tools.Excel.Worksheet = _ Globals.Factory.GetVstoObject(NativeWorksheet) Dim namedRange1 As Microsoft.Office.Tools.Excel.NamedRange namedRange1 = worksheet.Controls.AddNamedRange(worksheet.Range("A1"), "MyNamedRange")Worksheet worksheet = Globals.Factory.GetVstoObject(Application.ActiveSheet); Microsoft.Office.Tools.Excel.NamedRange namedRange1 = worksheet.Controls.AddNamedRange( worksheet.Range["A1"], "MyNamedRange");调整命名范围的大小使其包括单元格**“B1”**。
namedRange1.RefersTo = "=Sheet1!$A$1:$B$1"namedRange1.RefersTo = "=Sheet1!$A$1:$B$1";
请参见
任务
概念
在运行时在应用程序级外接程序中扩展 Word 文档和 Excel 工作簿