Excel

  • Автор темы Fugitive
  • Дата начала
Статус
Закрыто для дальнейших ответов.
F

Fugitive

Гость
#1
В Excel можно сделать автоподбор ширины столбца (Формат -> Столбец -> Автоподбор ширины). Если посмотреть как это делается в макросе то вот :
Sub macros1()
Cells.Select
Range("R13").Activate
Selection.Columns.AutoFit
End Sub

Можно ли как-нибудь в лотусе сказать, чтобы у колонки был Autofit. Не пойму как обратиться....
В лотусе я создаю лишь один обьект:
Dim myExObj As Variant
Set myExObj = CreateObject("Excel.application")
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
#2
Да. Такими же методами, как и в VBA.
Например:
Код:
Dim myExObj As Variant 
Dim xlWbk As Variant
Dim xlSheet As Variant
Set myExObj = CreateObject( "Excel.Application" )
myExObj.Visible = True
Set xlWbk = myExObj.Workbooks.Add
xlWbk.ActiveSheet.Cells(1, 1) = "adas"
xlWbk.ActiveSheet.Range("A1").Columns.AutoFit
 
Статус
Закрыто для дальнейших ответов.