Задать имя объекту

[sergvk]

Добрый день!
Подскажите пожалуйста как задать имя внедряемому объекту программно?
На лист (програмно ..OLEObjects.Add ClassType:="Forms.CommandButton.1"...) добавляю кнопку. Как задать ей имя?

[sergvk]

Прошу простить за "скорость" ответа самому себе :lol:
Иногда очень надо выходить на небольшую прогулку
Вышел к морю, покормил лебедей и вот ответ
...Shapes("CommandButton1").Name = "Новое_Имя"

[sergvk]

... только вот узнать имя последнего внедренного объекта узнать еще не получается :?

[Игорь Акопян]

off
издеваешься, да?

Вышел к морю, покормил лебедей

я поначалу решил, что это фигура речи

on
а ты не сам их присваиваешь?

[sergvk]

издеваешься, да?
Цитата:
Вышел к морю, покормил лебедей

я поначалу решил, что это фигура речи Smile

... тут я не издевюсь - Я живу в Феодосии и у нас еще не улетели после зимовки (молодняк) лебеди. Их осталось еще 10 пар -

а ты не сам их присваиваешь?

Если не проходило сбоя, то имя кнопке присвоится "CommandButton1". Если сразу переименовать, то все Ок, но если произошел сбой при переименовании следующей кнопке дается имя "CommandButton2". Потому и хочу узнать имя новой кнопки -

[Игорь Акопян]

может тупо перебором номера пока не найдёшь?

[pashulka]

Не надо никаких циклов и прочих извращений :P :

Код: Выделить всё

With Worksheets(1).OLEObjects.Add( _
     ClassType:="Forms.CommandButton.1", _
     Left:=100, Top:=10, Width:=75, Height:=25)
     .Name = "XXX"
     .Object.Caption = "Новая Кнопка"
End With