Подскажите по созданию макроса

Автор ХСБ, 13 декабря 2010, 22:30

0 Пользователи и 1 гость просматривают эту тему.

ХСБ

Приветствую всех.
Подскажите, пожалуйста как создать макрос? Нужно чтобы макрос делал ширину колонок по содержимому.... никак не могу этого добиться. Функция "записать макрос" создаёт нерабочий макрос... Что делать? P.S. Иксель подобный макрос записал без проблем... почему ООо не может?
Система: WinXP или Win7
ООо: 3/2/1 Infra

Примерный файл, и скрины "до" и "после" прилагаю.


[вложение удалено Администратором]
Поклонник портативного софта!
ЯТД ММ - Я так думаю! Моё мнение!

Рыбка Рио

Макрос, который делают ширину столбцов оптимальной на всем активном листе:
sub Main
Doc=ThisComponent
CC=Doc.CurrentController
CS=Doc.CurrentSelection
Sheet=CC.ActiveSheet
CC.select(Sheet)
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = CC.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "aExtraWidth"
args1(0).Value = 200

dispatcher.executeDispatch(document, ".uno:SetOptimalColumnWidth", "", 0, args1())

CC.select(CS)
end sub
ubuntu 12.04 + LibO3.6.0

ХСБ

Клио, большое спасибо, это именно то что нужно :) Всё работает!
Поклонник портативного софта!
ЯТД ММ - Я так думаю! Моё мнение!