изменение цвета текста в фигуре (Shapes) при создании

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/изменение цвета текста в фигуре (Shapes) при создании - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » изменение цвета текста в фигуре (Shapes) при создании (Макросы/Sub)

изменение цвета текста в фигуре (Shapes) при создании

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]

Ответить

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]

Могу помочь в VB6, VBA
Alex77755@mail.ru

Сообщение отредактировал alex77755 - Суббота, 10.01.2015, 17:22

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » изменение цвета текста в фигуре (Shapes) при создании (Макросы/Sub)

Страница 1 из 1
1