ControlCollection.AddProgressBar Метод (Range, String) (2007 System)
Обновлен: Ноябрь 2007
Добавляет в указанный диапазон листа новый элемент управления ProgressBar.
Пространство имен: Microsoft.Office.Tools.Excel
Сборка: Microsoft.Office.Tools.Excel.v9.0 (в Microsoft.Office.Tools.Excel.v9.0.dll)
Синтаксис
'Декларация
Public Function AddProgressBar ( _
range As Range, _
name As String _
) As ProgressBar
'Применение
Dim instance As ControlCollection
Dim range As Range
Dim name As String
Dim returnValue As ProgressBar
returnValue = instance.AddProgressBar(range, _
name)
public ProgressBar AddProgressBar(
Range range,
string name
)
Параметры
- range
Тип: Microsoft.Office.Interop.Excel.Range
Объект Range, предоставляющий границы элемента управления.
- name
Тип: System.String
Имя элемента управления, которое можно использовать для индексации элемента управления в экземпляре ControlCollection.
Возвращаемое значение
Тип: Microsoft.Office.Tools.Excel.Controls.ProgressBar
Элемент управления ProgressBar, добавленный в экземпляр ControlCollection.
Исключения
| Исключение | Условие |
|---|---|
| ArgumentNullException | Аргумент имени или диапазона равен nullссылка null (Nothing в Visual Basic), или аргумент имени имеет нулевую длину. |
| ControlNameAlreadyExistsException | Элемент управления с таким именем уже имеется в данном экземпляре ControlCollection. |
| InvalidRangeException | Указанный диапазон не существует. Невозможно использовать диапазоны с несколькими областями. Диапазон должен находиться на том же листе, что и экземпляр ControlCollection. |
Заметки
Метод AddProgressBar используется для добавления объектов ProgressBar в конец ControlCollection. Чтобы удалить добавленный программно объект ProgressBar, воспользуйтесь методом Remove().
Размер элемента управления автоматически изменяется при изменении размера диапазона.
Примеры
В следующем примере кода добавляется элемент управления ProgressBar в ячейки A1 до B1, и затем повышает текущую позицию элемента управления до 50.
Private Sub ExcelRangeAddProgressBar()
Dim ProgressBar1 As Microsoft.Office.Tools. _
Excel.Controls.ProgressBar = Me.Controls. _
AddProgressBar(Me.Range("A1", "B1"), _
"ProgressBar1")
ProgressBar1.Maximum = 100
ProgressBar1.Step = 50
ProgressBar1.PerformStep()
End Sub
private void ExcelRangeAddProgressBar()
{
Microsoft.Office.Tools.Excel.Controls.ProgressBar
progressBar1 = this.Controls.AddProgressBar(
this.Range["A1", "B1"], "progressBar1");
progressBar1.Maximum = 100;
progressBar1.Step = 50;
progressBar1.PerformStep();
}
Разрешения
- Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Дополнительные сведения см. в разделе Использование библиотек из не вполне надежного кода.