asgard |
Дата: Суббота, 10.01.2015, 05:36 |
Сообщение № 1 |
|
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2007 | |
всем здраствуйте.
как изменить цвет текста в фигуре (Shapes) при создании?
[vba]Код Do toc = toc + 1 If Cells(toc, 1) = "" Then Cells(toc, 1) = Chr(Asc(Cells(toc - 1, 1)) + 1) tochkaName = Cells(toc, 1) endtochka = Cells(toc, 1) Cells(toc, 1 + 1) = 300 Cells(toc, 1 + 2) = 300 With ActiveSheet.Shapes.AddShape(msoShapeOval, 300, 300, diam, diam) .name = tochkaName .Fill.ForeColor.RGB = vbGreen .Line.Weight = 0.2 .Line.ForeColor.RGB = vbGreen '.TextFrame2.TextRange.Text = tochkaName [color=red][size=14]'вот здесь надо поставить цвет текста[/size][/color] .TextFrame.Characters.Text = Cells(toc, 1) End With Exit Do End If Loop [/vba] зарание спасибо! [moder]Оформляйте коды тегами (кнопка #)[/moder]
всем здраствуйте.
как изменить цвет текста в фигуре (Shapes) при создании?
[vba]Код Do toc = toc + 1 If Cells(toc, 1) = "" Then Cells(toc, 1) = Chr(Asc(Cells(toc - 1, 1)) + 1) tochkaName = Cells(toc, 1) endtochka = Cells(toc, 1) Cells(toc, 1 + 1) = 300 Cells(toc, 1 + 2) = 300 With ActiveSheet.Shapes.AddShape(msoShapeOval, 300, 300, diam, diam) .name = tochkaName .Fill.ForeColor.RGB = vbGreen .Line.Weight = 0.2 .Line.ForeColor.RGB = vbGreen '.TextFrame2.TextRange.Text = tochkaName [color=red][size=14]'вот здесь надо поставить цвет текста[/size][/color] .TextFrame.Characters.Text = Cells(toc, 1) End With Exit Do End If Loop [/vba] зарание спасибо! [moder]Оформляйте коды тегами (кнопка #)[/moder]asgard
|
|
| Ответить
|
alex77755 |
Дата: Суббота, 10.01.2015, 15:13 |
Сообщение № 2 |
|
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация:
64
±
Замечаний:
0% ±
| |
[vba]Код .Line.ForeColor.RGB = vbGreen .DrawingObject.Characters.Text = tochkaName .DrawingObject.Font.Size = 26 .DrawingObject.Font.Color = RGB(0, 0, 255) .DrawingObject.Font.Bold = 1 .DrawingObject.HorizontalAlignment = xlCenter
[/vba]
[vba]Код .Line.ForeColor.RGB = vbGreen .DrawingObject.Characters.Text = tochkaName .DrawingObject.Font.Size = 26 .DrawingObject.Font.Color = RGB(0, 0, 255) .DrawingObject.Font.Bold = 1 .DrawingObject.HorizontalAlignment = xlCenter
[/vba]alex77755
Могу помочь в VB6, VBA Alex77755@mail.ru
Сообщение отредактировал alex77755 - Суббота, 10.01.2015, 17:22 |
|
| Ответить
|