Категория:
Работа с Microsoft Office и OpenOffice Версии: 8.x
Отчет = РабочиеКниги.Open(Каталог+Названиефайла);
ОтЛевогоКрая=550;
ОтВерха=80;
Длина=100;
Высота=50;
кн = Отчет.Sheets(1).OLEObjects.Add(" Forms.CommandButton.1" ,,,,,,,ОтЛевогоКрая, ОтВерха, Длина,Высота);
st = " Private Sub CommandButton1