А как можно внутрь нарисованной окружности вывести значение переменной?

Код

ActiveSheet.Shapes("Oval_1").Select Selection.Characters.Text = "TEST"

Спасибо, Naqhual, попробую

Вот пробный фрагмент:

ActiveSheet.Shapes.AddLine(27.75, 63.75, 113.25, 63.75).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
ActiveSheet.Shapes.AddShape(msoShapeOval, 114#, 42#, 42#, 42#).Select
ActiveWorkbook.Names.Add Name:="Дата1", RefersToR1C1:="=""Овал 3"""
ActiveSheet.Shapes.AddLine(156#, 63.75, 213.75, 63.75).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
ActiveSheet.Shapes.AddShape(msoShapeOval, 214.5, 43.5, 40.5, 40.5).Select
ActiveWorkbook.Names.Add Name:="Дата2", RefersToR1C1:="=""Овал 5"""
ActiveSheet.Shapes.AddLine(135#, 84#, 135#, 127.5).Select
ActiveSheet.Shapes.AddLine(135#, 127.5, 185.25, 127.5).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
ActiveSheet.Shapes.AddShape(msoShapeOval, 186#, 106.5, 42#, 42#).Select
ActiveWorkbook.Names.Add Name:="Data3", RefersToR1C1:="=""Овал 8"""

ActiveSheet.Shapes("Дата1").Select
Selection.Characters.Text = "12/09/05"


Ругается на неверный параметр в предпоследней строке

Правильно пишет. Нет у тебя овала с таким именем.

Задавать имя нужно так:

Код

ActiveSheet.Shapes.AddShape(msoShapeOval, 114#, 42#, 42#, 42#).Select Selection.Name = "Дата1"

Это сообщение отредактировал(а) Naghual - 2.9.2005, 11:08

Спасибо, Naqhual, всё получилось.

А размер шрифта при выводе в окружность можно изменить?
И последний, похоже на то, вопрос: а как можно на листе эти объекты разом все удалить?

Это сообщение отредактировал(а) Trinitron - 2.9.2005, 11:20

Через коллекцию Shapes в цикле.

А вот этого я не понял
А размер шрифта при выводе в окружность можно изменить?

Это сообщение отредактировал(а) Trinitron - 2.9.2005, 11:21

Что ты не понял? Объяснить как удалить?

Шрифт:
Воспользуйся методом записи макроса!
И все поймеш!

Если можно, то подскажи примером как удалить нарисованные овалы и линии
Со шрифтом разобрался

Код

Dim SHP As Shape          For Each SHP In ActiveSheet.Shapes         SHP.Delete     Next

ОГРОМНОЕ тебе СПАСИБО, Naqhual, всё получилось.

Тему можно закрыть.

Пример простенькой программки, которая рисует линию на форме. Данный код необходимо вставить в тело формы (создать форму и нажать F7)




Программка рисует на форме VBA Excel линию с координатами точек (10, 40) и (150, 100) после щелчка мыши по панели формы, а также окружность. 

Это сообщение отредактировал(а) vaulin - 24.3.2010, 14:06

Уважаемый Trinitron, здравствуйте!

А нельзя ли выложить пример реализации "рисовалки"?

Помогите нужно создать таблицу в Excel. Столбцы: ФИО, Должность, Дата рождения, Несовер. дети г. р., Дата окончания контракта. Нужно что бы когда остается месяц до завершения контракта строка с человеком у которого заканчивается контракт выделялась красным цветом.