如何在MS Access Control中引用Visio对象

Question

我在MS Access表单上有一个'Microsoft Visio Document'（VisioViewer.Viewer.1）控件（称为visDiagram）。 我怎样才能在代码中引用它？

e.g。

  Dim pagDiagram as Visio.Page
  Set pagDiagram = me!visDiagram.<WHAT GOES HERE????>
  Debug.print pagDiagram.Shapes.Count

更新： 此网页http://msdn.microsoft.com/en-us/library/office/ff765109(v=office.14).aspx表示使用

Dim vsoDocument As Visio.Document
Set vsoDocument = DrawingControl1.Document

但

Dim vsoDocument As Visio.Document
Set vsoDocument = me!visDiagram.Document

赋予'对象不支持他的属性或方法'

Answer 1

set vsoDocument  = me!visDiagram.Object
Debug.print vsoDocument.ShapeCount

for each P in vsoDocument.Pages  
     debug.print P.name
next p