Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как изменить позицию TickLabel в OWC Chart Control? / 4 сообщений из 4, страница 1 из 1
08.06.2006, 14:07
    #33780611
Alexus_stav
Alexus_stav
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как изменить позицию TickLabel в OWC Chart Control?
При записи макроса в Excel получаю:
ActiveChart.Axes(xlValue).Select
With Selection
.MajorTickMark = xlOutside
.MinorTickMark = xlNone
.TickLabelPosition = xlHigh ' .TickLabelPosition = xlNextToAxis
End With
Как изменить TickLabelPosition средствами Visual Basic?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2006, 15:09
    #33780853
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как изменить позицию TickLabel в OWC Chart Control?
В чем собственно проблема? Код вы привели, что конкретно не работает?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
    With Chart1.Chart.Axes(xlValue) 
        .MajorTickMark = xlOutside
        .MinorTickMark = xlNone

        ' Для Excel 2003. xlTickLabelPositionHigh, xlTickLabelPositionLow, 
        ' xlTickLabelPositionNextToAxis, xlTickLabelPositionNone

        ' Для Excel 97. xlNone, xlHigh и т.д.
        .TickLabelPosition = xlTickLabelPositionNextToAxis 
    End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2006, 15:47
    #33781002
Alexus_stav
Alexus_stav
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как изменить позицию TickLabel в OWC Chart Control?
Проблема в том, что при использовании OWC Chart Control у ChartSpace в VisualBasic свойство TickLabelPosition отсутствует!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2006, 08:44
    #33782288
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как изменить позицию TickLabel в OWC Chart Control?
Так бы и написал, что в Excel при изменении положение свойство такое, а с OWC компонентом такое не работает.

Да, действительно, у OWC Chart нет свойства TickLabelPosition. Это свойство применимо только для экселевских диаграмм, но есть свойство Position, которое собственно нам и нужно.

Пример кода в Excel.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Sub ChangePosition()
    Dim objOle As OLEObject
    Dim chSpace As OWC11.ChartSpace
    Dim chAxis As OWC11.chAxis
    
    Set objOle = Worksheets("Лист1").OLEObjects("ChartSpace1")
    Set chSpace = objOle.Object
    Set chAxis = chSpace.Charts( 0 ).Axes( 0 )
    chAxis.Position = chAxisPositionTop
    
    Set objOle = Nothing
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как изменить позицию TickLabel в OWC Chart Control? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 374ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2165739]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 74ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 224ms
total:  374ms
x
x
Закрыть


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