Добрый день!  
Делал небольшой проект на VBA и столкнулся со следующей проблемой.  
VBA позволяет создать объект в памяти?  
 
C# и другие языки позволяют сначала создать объект а потом добавить его  
т.е. можно сделать примерно так:  
 
Пример1  
Dim shp as (new?) Shape  
shp.Width=10  
shp.Height=20  
shp.Left=50  
shp.Top=50  
.......  
'Добавляю готовую фигуру на Лист  
ThisWorkbook.Sheets(1).Shapes.AddShape(shp)  
 
'Продолжаю работать с объектом shp  
shp.name="new_krug1"  
и т.п.  
 
Пример 2  
На VBA пришлось делать так:  
 
'Сначала объявляю  
Dim shp As Shape  
 
'Инициализирую и создаю с параметрами  
Set shp = ThisWorkbook.Sheets(1).Shapes.AddShape(msoShapeOval, 50, 50, 50, 50)  
'Меняю свойства  
shp.name="Oval1"  
 
Есть возможность сделать на ВБА что то подобное описанию из примера №1?

Сделал некий макрос (отслеживает измененения в целевой ячейке)  
Но возникает некий глюк: если в ячейке войти в режим правки и начать вводить формулу то в случае, если формула вводится переключением между листами (т.е. в ячейке листа1 пишу = , потом щелкаю по ярлыку Лист2 а затем по ячейке на листе) в норме в целевой ячейке лита1 должна появится формула =Лист2!A1+Лист2!B2 но в момент работы макроса эта формула записывается в ячейку листа по ярлыку которого я щелкнул последним в режиме правки.  
Это можно вылечить?    
 
P/s/ Прошу прощения за путанное описание, см . пример во вложении

Программно создаю кнопки на форме в цикле (But1, But2, But3 и т.д.)  
Не получается назначить событие на нажатие этой кнопки  
 
Private Sub But1_Click() - не срабатывает. Лучше если получится воткнуть обарботчит событий в ту же процедуру, которая создает кнопки на форме

Уважаемые форумчане! Подскажите (напишите) VB код для подключения к Excel БД Paradox (с паролем). Заранее благодарен!

В примере абсолютно простая формула (=ВПР(D19;C4:D14;2;0))  
Где если d19 - число (в примере 0,03 то все ок )  
Как только изменяю число на вычисление со знаком минус она работать перестает  
 
т.е 1,03-1 = 0,03 - не работате  
а так 0,01+0,01 работает  
Это привет от MS или мне пора в отпуск?

Уважаемые форумчане, помогите решить пролему. Я не могу получить адрес источника данных для диаграммы (или для ряда на диаграмме)    
 
Т.е.  задаю я его таким образом:    
 
ActiveChart.SetSourceData Source:=Sheets("Лист4").Range("A1:A7,H1:J7"), _  
       PlotBy:=xlRows  
 
А вот как получить адрес "Source" я найти не сумел.

Во вложение вариант связанного выпадающего списка  
 
Если кратко, то так:  
=СМЕЩ((ДВССЫЛ(АДРЕС(ПОИСКПОЗ(F19;brend;0)+1;2;1;1;"lists")));0;0;СЧЁТЕСЛИ(brend;F19);1)