Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / TextBox: как задать внутренние поля / 5 сообщений из 5, страница 1 из 1
06.01.2009, 12:44
    #35745555
zappb
zappb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TextBox: как задать внутренние поля
Сильно не бейте, не нашел, собственно вопрос: надо внутри текстбокса поля нулевые сделать, никак не выходит ((
понимаю, что должно быть .MarginLeft и .MarginRight, но как?
вот такой вот код:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
ActiveSheet.TextBoxes.Add(x, y, a, b).Select
        Selection.Name = "M_List"
        Selection.Characters.Text = "Лист"
        Selection.Border.LineStyle = xlNone
        Selection.Interior.ColorIndex =  0 
        Selection.Placement = xlFreeFloating
        With Selection.Font
            .Name = "Times New Roman Cyr"
            .FontStyle = "Полужирный"
            .Size =  8 
        End With
        With Selection
            .Shadow = False
            .RoundedCorners = False
            .Interior.ColorIndex =  0 
            .Interior.Pattern = xlNone
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .Orientation = xlHorizontal
            .AutoSize = False
        End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2009, 10:58
    #35750491
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TextBox: как задать внутренние поля
Наверное, как-нибудь так.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub X()
    Dim sh As Excel.TextFrame
    
    Set sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle,  0 ,  0 ,  250 ,  140 ).TextFrame
    
    With sh
        .AutoMargins = False
        .Characters.Text = "Just a test."
        .MarginLeft =  0 
        .MarginRight =  0 
        .MarginBottom =  3 . 69 
        .MarginTop =  3 . 69 
    End With
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2009, 08:41
    #35751754
zappb
zappb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TextBox: как задать внутренние поля
хотелось бы конечно именно у textBox
а если у TextFrame - то я не могу найти ни в справке ни методом тыка, как цвет фона задавать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2009, 09:25
    #35751806
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TextBox: как задать внутренние поля
Правильно, у TextFrame нет таких свойств. Нужно смотреть на свойства объекта Shape.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub X()
    Dim sh As Excel.Shape
    Dim tf As Excel.TextFrame
    
    Set sh = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal,  0 ,  0 ,  250 ,  140 )
    sh.Fill.ForeColor.RGB = RGB( 255 ,  0 ,  0 )

    Set tf = sh.TextFrame
    
    With tf
        .AutoMargins = False
        .Characters.Text = "Just a test."
        .MarginLeft =  0 
        .MarginRight =  0 
        .MarginBottom =  3 . 69 
        .MarginTop =  3 . 69 
    End With
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2009, 15:26
    #35752834
zappb
zappb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TextBox: как задать внутренние поля
Спасибо большое )))
заработало
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / TextBox: как задать внутренние поля / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 385ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2161460]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 57ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 2ms
others: 238ms
total:  385ms
x
x
Закрыть


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