Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / excel.chart, шрифты / 2 сообщений из 2, страница 1 из 1
08.02.2007, 11:20
    #34315054
rrm
rrm
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
excel.chart, шрифты
При обработке данных с помощью объекта excel.chart сбивается русский шрифт, подскажите как от этого избавиться
Часть кода:
oXLChart1 = GETOBJECT('','excel.chart')
oXLChart1.APPLICATION.charts[1].haslegend = .F.
oXLChart1.APPLICATION.worksheets(1).cells().CLEAR
oXLChart1.APPLICATION.ActiveChart.PlotArea.SELECT
...

__CLIPTEXT=tb_errdesc.errdesc+TAB+STR(EVALUATE("curs_errors_for_user."+tb_errdesc.errtbname))+CRLF
oXLChart1.APPLICATION.worksheets(1).cells(1,1).pastespecial oXLChart1.APPLICATION.charts[1].chartwizard(oXLChart1.APPLICATION.worksheets(1). ;
RANGE(oXLChart1.APPLICATION.worksheets(1).cells(1,1),oXLChart1.APPLICATION.worksheets(1).cells(countgr,2)),;
typechar,1,2,1,1,2,"","","","")
...
Рейтинг: 0 / 0
08.02.2007, 12:16
    #34315330
-=AlexiS=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
excel.chart, шрифты
Перед копированием нужно переключить "клаву" на русскую раскладку

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
declare SHORT GetKeyboardLayoutName in user32.dll string @lpR
DECLARE INTEGER ActivateKeyboardLayout IN user32; 
    INTEGER hkl,; 
    INTEGER Flags

lpR=space( 15 )
=GetKeyboardLayoutName(@lpR)
If at("419",lpR) =  0  
 ActivateKeyboardLayout( 1 , 0 )
Endif
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / excel.chart, шрифты / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]