ActiveDocument.Pages(1).Shapes(1)...

Vs=CreateObject("Visio.Application")

ActiveDocument.Pages(1).Shapes(1).DrawLine(a, b, c, d)

 
 ***  Для отображения используется компонент ActivX обычный просмоторщик Visio, полноценный я так и не нашёл  
 ***  А для програмирования уже создаю объект на основе Visio.Application  
  With Thisform  
  	mFile=Getfile('vsd')                                             && Получение файла с нужным расширением  
  	If Upper(Allt(.MyFisio.srC))==Upper(Allt(mFile))                 && Проверка выбранного файла и то, что уже загружено в OLE  
  	Else  
  		If Len(Allt(.MyFisio.srC))=0                                   && Если загрузка впервые  
  			answer=6  
  		Else  
  			answer=Messagebox('?Перезагрузить файл ?',36,'Вопрос')    
  		Endif  
  		If answer=6  
  			.MyFisio.Unload                                              && Выгружаем, то что есть на данный моментв OLE  
  			.MyFisio.Load(Allt(mFile))                                   && Загружаем выбранный файл (Процесс долгий, зависит от файла, может грузить секунд 30)  
  			.MyFisio.Object.PageVisible = .T.                            && делаю видимой страницу, хотя можно и убрать, сомнительно что это нужно, просто есть проблемы с отрисовкой и эта строчка вроде как помогла  
  			mkod=Thisform.MyFisio.Object.CurrentPageIndex                && Текущая страница документа  
  			mkodMax=Thisform.MyFisio.Object.PageCount                    && Всего страниц в документе  
  			mShapeCount=Thisform.MyFisio.Object.ShapeCount               && Количество элементов на странице (В данном случае пользователю это не нужно, но я отображаю для наглядности)  
  			.tkod.Value=mkod  
  			.tFile.Value=mFile  
  			.linfo.Caption = 'Страница '+Allt(Str(mkod))+' из '+Allt(Str(mkodMax))+' Всего элементов на странице: '+Allt(Str(mShapeCount))  
  		Endif  
  	Endif  
  Endwith

 Local VisApp As Visio.Application  
  Local VisDoc As Visio.Document  
 ******************************************************  константы  ***************************************************************  
  visSectionObject=1  
  visRowFill=3  
  visFillForegnd=0  
  visFillForegndTrans=6  
  visFillBkgndTrans=7  
  visFillPattern=2  
  visSectionCharacter=3  
  visCharacterSize = 7  
  visFitWidth = 2  
 **********************************************************************************************************************************  
  mkod=Thisform.tkod.Value        && страница  
  mtp=Allt(Thisform.ttp.Value)    && то что ищем  
  mFile=Thisform.tFile.Value      && выбранный файл  
 *****************************  создаем курсор для хранения всех объектов страницы  ************************************************  
  Create Cursor MyOb (NomerS1 Int, NomerS2 Int, mid Int, NameS Varchar(50), tText Varchar(50))  
  If File(mFile)  
  	VisApp=Createobject("Visio.Application")              	&& Создаем экземпляр объекта  
  	VisApp.Visible=.F.                                    	&& Делаем его невидимым  
  	VisDoc=VisApp.Documents.Open(mFile)                   	&& Открываем в нём наш документ  
  	VisApp.ActiveWindow.Page = VisDoc.Pages(mkod)         	&& Переходим на нужную страницу (хотя данный кусок кода мне уже не нужен, сделал там другую фишку)  
  	VisApp.ActiveWindow.ViewFit = visFitWidth             	&& По ширине экрана  
  	pagObj = VisApp.ActivePage                            	&& Переменная активной страницы  
  	For i=1 To pagObj.Shapes.Count Step 1                 	&& Открываем первый цикл по всем элементам Shapes  
  		If pagObj.Shapes(i).Shapes.Count>1                  	&& Если у Shapes есть свои Shapes  
  			For i2=1 To pagObj.Shapes(i).Shapes.Count Step 1  	&& Если есть, то открываем второй цикл по Shapes.Shapes  
  				Insert Into MyOb (NomerS1, NomerS2, mid, NameS, tText) Values (i, i2, pagObj.Shapes(i).Shapes(i2).Id, ;  
  					pagObj.Shapes(i).Shapes(i2).Name, pagObj.Shapes(i).Shapes(i2).Text)  
  			Endfor  
  		Else  
  			Insert Into MyOb (NomerS1, NomerS2, mid, NameS, tText) Values (i, 0, pagObj.Shapes(i).Id, ;  
  				pagObj.Shapes(i).Name, pagObj.Shapes(i).Text)  
  		Endif  
  	Endfor  
  	Thisform.cUp.Caption ='Найти и выделить ТП ('+Allt(Str(Reccount('q1')))+')'  
  	Select * From MyOb Where Like('*ТП*',tText) And Like('* '+mtp+' *',tText) Into Cursor q1   && Здесь я делаю свою выборку и если она не удачна, то делаю другую  
  	If Reccount('q1')<>0  
  		If Reccount('q1')>1  
  			Messagebox('Найдено '+Allt(Str(Reccount('q1')))+' элементов на схеме, удовлетворяющим условиям',32,'Оповещение')  
  		Endif  
  		Select q1  
  		Scan  
 			****  здесь я просто меняю цвет, но можно сделать почти всё, что захочется  
  			VisApp.ActiveWindow.Page.Shapes.ItemFromID(mid).CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = "THEMEGUARD(RGB(0,176,240))"    
  		Endscan  
  	Else  
  		Select * From MyOb Where tText==mtp Into Cursor q2  
  		If Reccount('q2')=0  
  			Messagebox('Элементы на схеме, удовлетворяющим условиям не найдены',32,'Оповещение')  
  		Else  
  			If Reccount('q2')>1  
  				Messagebox('Найдено '+Allt(Str(Reccount('q2')))+' элементов на схеме, удовлетворяющим условиям',32,'Оповещение')  
  			Endif  
  			Select q2  
  			Scan  
 				****  здесь я просто размер шрифта, возможностей достаточно много  
  				VisApp.ActiveWindow.Page.Shapes.ItemFromID(mid).CellsSRC(visSectionCharacter, 0, visCharacterSize).FormulaU = "30 pt"  
  			Endscan  
  		Endif  
  	Endif  
  	VisDoc.SaveAs('c:\1.vsd')   								&& пересохраняем в другой файл  
  	VisApp.Quit                 								&& вроде бы так освобождаю объект  
  	Thisform.MyFisio.Unload     								&& выгружаю OLE  
  	Thisform.MyFisio.Load('c:\1.vsd')   				&& загружаю в OLE изменённый файл, оригинал не трогаем  
  	Thisform.MyFisio.Object.PageVisible = .T.   && делаю страницу видимой (под вопросм, нужло лии это я описал в первой процедуре)  
  	Messagebox('Загрузка файла закончена, нажмите ОК для продолжения',32,'Оповещение')  
  	Thisform.Refresh                            && обновляю форму и на всякий случай сам OLE, но всё равно бывают проблемы не прорисовки  
  	Thisform.MyFisio.Refresh  
  Else  
  	Messagebox('Файл не найден',32,'Оповещение')  
  Endif

*** ActiveX Control Event ***  
  Lparameters pageindex  
  mkod=pageindex  
  Thisform.tkod.Value=mkod  
  mkodMax=Thisform.MyFisio.Object.PageCount  
  mShapeCount=Thisform.MyFisio.Object.ShapeCount  
  Thisform.linfo.Caption = 'Страница '+Allt(Str(mkod))+' из '+Allt(Str(mkodMax))+' Всего элементов на странице: '+Allt(Str(mShapeCount))  
  Thisform.Refresh