Масштаб в Excel

[decoder]

Еще вопрос.. для кучи
На форме установлен элемент ActiveX "ExcelSheet" и в нем есть "экселевское" меню в том числе кнопка "Экспорт в Microsoft Excel".
Можно ли при экспорте этой кнопкой попутно задать значение параметра страницы (напр. тот же самый "Разместить не более чем на 1 стр. в ширину и 1 стр. в высоту") создаваемого документа?
Или это ActiveX и его нельзя.. или я чего-то не понимаю..

[Gustav]

Цитата:

Сообщение от decoder

На форме установлен элемент ActiveX "ExcelSheet" и в нем есть "экселевское" меню в том числе кнопка "Экспорт в Microsoft Excel".

Эта штука называется Spreadsheet. Это "почти" Excel, но "далеко не совсем".

Файлы по Spreadsheet'у, которые наверняка есть на вашем компутере:

• OWCDSS11.CHM (или OWCRSS11.CHM - не знаю чем они отличаются) - "Справка компонента электронных таблиц Microsoft Office 2003" - это описание того, что пользователь может делать ручками
• OWCFUN11.CHM - "Справка функций электронных таблиц Microsoft Office 2003" - это функции рабочего листа (типа SUM или СУММ), которыми можно пользоваться при работе со Spreadsheet (в большом Excel, конечно, выбор побогаче, но тут тоже не бедный)
• OWCVBA11.CHM - "Microsoft Office 2003 Web Components Visual Basic Reference" - справочник по программированию (всех компонентов семейства OWC, не только Spreadsheet)

Вместо 11 могут быть еще файлы по 10 (просто подравьте цифру в поиске файлов), или даже по 12,


В OWCDSS11.CHM про печать говорится следующее:

Цитата:

Печать листа

Для печати электронной таблицы, открытой в обозревателе, необходимо напечатать всю страницу.

В обозревателе Microsoft Internet Explorer, в меню Файл выберите команду Печать.

Примечание. Если электронная таблица шире или длиннее печатной страницы, области, выходящие за ее границы, не печатаются. Для расширения возможностей управления печатью данных, включая возможность печати длинных таблиц и расстановки разрывов страниц, электронную таблицу можно экспортировать в Microsoft Excel, нажав на панели инструментов кнопку Экспорт в Microsoft Excel . Сведения о печати из Microsoft Excel содержатся в справке по Microsoft Excel.

В OWCVBA11.CHM нет ничего про нужный нам PageSetup. Так что, извините!

[Stainless]

Столкнулся с похожей проблемой, необходимо измений масштаб примечания в Excel, VBA-код:

Range("A1").AddComment
Range("A1").Comment.Visible = False
Range("A1").Comment.Text Text:="*:"
Selection.ShapeRange.ScaleWidth 1.98, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 2.7, msoFalse, msoScaleFromTopLeft

Не могу никак разобраться как изменить Scale

+ сам разобрался:

comShape          = comComment.Shape();
comTextFrame    = comShape.TextFrame();
comTextFrame.AutoSize(1);