Подскажите, пожалуйста, можно ли нарисовать схему прямо в экселе по данным из таблицы. Например, построить прямоугольник с длинами сторон из таблицы или построить фигуру по координатам. Идея в том, чтобы по входным данным произвести вычисления и снабдить все это схемой. Схема для наглядности результата и контроля введенных данных. Если, например, я знаю, что у меня квадрат, то есть стороны прямоугольника равны, а на картинке я вижу широкий и низкий прямоугольник, значит я ввел данные неверно. Подозреваю, стандартными методами этого не сделаешь, тогда при помощи чего это можно сделать? Пока прошу только дать направление куда копать.
Заранее благодарю всех откликнувшихся!
Добрый день!
Подскажите, пожалуйста, можно ли нарисовать схему прямо в экселе по данным из таблицы. Например, построить прямоугольник с длинами сторон из таблицы или построить фигуру по координатам. Идея в том, чтобы по входным данным произвести вычисления и снабдить все это схемой. Схема для наглядности результата и контроля введенных данных. Если, например, я знаю, что у меня квадрат, то есть стороны прямоугольника равны, а на картинке я вижу широкий и низкий прямоугольник, значит я ввел данные неверно. Подозреваю, стандартными методами этого не сделаешь, тогда при помощи чего это можно сделать? Пока прошу только дать направление куда копать.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [B2:b6]) Is Nothing Then With ActiveSheet.Shapes.Range(Array("Rectangle 1")) .Height = [b2] .Width = [b3] .Top = [b5] .Left = [b6] End With End If End Sub
[/vba]
разве что программно, см. файл [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [B2:b6]) Is Nothing Then With ActiveSheet.Shapes.Range(Array("Rectangle 1")) .Height = [b2] .Width = [b3] .Top = [b5] .Left = [b6] End With End If End Sub