не работает макрос установки шрифта в LO

Автор ASSEI, 15 марта 2017, 22:29

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

ASSEI

Здравствуйте форумчане, подскажите что не так в макросе, попробовал записать макросом установка шрифта и его размер а этот макрос только выделяет диапазон, подскажите что не так!
sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1:$A$100"

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

rem ----------------------------------------------------------------------
dim args2(4) as new com.sun.star.beans.PropertyValue
args2(0).Name = "CharFontName.StyleName"
args2(0).Value = ""
args2(1).Name = "CharFontName.Pitch"
args2(1).Value = 2
args2(2).Name = "CharFontName.CharSet"
args2(2).Value = 0
args2(3).Name = "CharFontName.Family"
args2(3).Value = 5
args2(4).Name = "CharFontName.FamilyName"
args2(4).Value = "Tahoma"

dispatcher.executeDispatch(document, ".uno:CharFontName", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(2) as new com.sun.star.beans.PropertyValue
args3(0).Name = "FontHeight.Height"
args3(0).Value = 12
args3(1).Name = "FontHeight.Prop"
args3(1).Value = 100
args3(2).Name = "FontHeight.Diff"
args3(2).Value = 0

dispatcher.executeDispatch(document, ".uno:FontHeight", "", 0, args3())
end sub


ASSEI

Цитата: rami от 15 марта 2017, 23:14
У меня нормально работает.
ни фига ни шрифт ни его размер не устанавливает, может какие то настройки в программе  не те

ASSEI

Цитата: rami от 15 марта 2017, 23:14
У меня нормально работает.
из модуля если я запускаю работает а вот на кнопке нет

rami

Цитата: ASSEI от 15 марта 2017, 23:24
Цитата: rami от 15 марта 2017, 23:14
У меня нормально работает.
из модуля если я запускаю работает а вот на кнопке нет
А вы правильно назначаете кнопке макрос?

ASSEI

в принципе как и на многих моих кнопках тотже принцип через свойство кнопки --элемент управление--"вкладка" событие--выполнить действия и назначаю макрос main

ASSEI

происходит действие только выделение диапазона а изменение шрифта нет

rami

В редакторе элемента управления найдите пункт Захватить фокус при щелчке — выставите нет — кнопка почему-то перехватывает фокус у диапазона (я всегда выставляю "нет", поэтому раньше не замечал, но если поставить "да", то и у меня не меняет шрифт).

ASSEI

СПАСИБО ВАМ ОГРОМНОЕ! столько тонкостей кто кроме вас нам "чайникам" поможет разобраться в таких нюансах!

ASSEI

Да кстати! такой вопрос, в XL2003 для того что бы макрос срабатывал при каждом открытии книги, макрос заносили в саму книгу, а как это делается в LO?

economist

Если макрос в самом документе, то всё просто:

Сервис-Настройка-События-Просмотр создан-Макрос... выбрать его
Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...

ASSEI