All Forums
 Категория Visio
 Форум Вопросы и ответы
 Сделать график в Visio (т.е построить линию)
Author Previous Topic Topic Next Topic  

bdfy

Belarus
267 Posts
Posted - 10/23/2011 :  19:20:27
Достаточно часто приходиться строить разного рода типовые графики. конечно самым простым решением является построить в екселе - в визио скопировать. но далеко не всегда это хорошая идея. возможности оформления в екселе несколько ограничены в определенных вещах - мне было бы удобнее рисовать график автоматически как то в визио.
упирается задача фактически только в одно - как построить сглаженную линию по точкам (предположим в диапазоне от -1 до 1 ) ? точки то поставить на график не проблема - провести через них кривую (как линия тренда в екселе, т.е аппроксимирующую) уже куда сложнее. кто нибудь понимает как NURBS работает ?

Robinkzn

84 Posts
Posted - 10/28/2011 :  14:40:58
Можно вот так сделать, потом все линии сгруппировать.


Sub Grafik()

Dim x As Double
Dim y1 As Double
Dim y2 As Double

For x = -1.9 To 2 Step 0.1

y1 = (x - 0.05) ^ 3 + (x - 0.05) ^ 2
y2 = (x + 0.05) ^ 3 + (x + 0.05) ^ 2

ActiveWindow.Page.DrawLine (x - 0.05), y1, (x + 0.05), y2
 

Next x

End Sub
Go to Top of Page

bdfy

Belarus
267 Posts
Posted - 10/28/2011 :  23:04:15
ломаная получиться. а я хочу сглаженную
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)