KoMaDo   VISIO SQUARE : VB/VBA  ■ Headline ■ HOME    

VB/VBAトップへ ▼カッ飛び最後 

  任意のシェイプを画面の中央へ

01: 名前:moto投稿日:2007/09/17(月) 22:06
いつも参考にさせていただいています。
VB2005+Visio2003ActiveXDrawingControlでアプリケーションを
作成しているのですが、ページをスクロールさせて任意のシェイプを
画面の中央に表示する方法が分からずに困っています。
どなたかご教授お願いします。

02: 名前:yoda投稿日:2007/09/18(火) 01:55
私は、ScrollViewTo メソッドで、うまくいったことがあります。
ActiveWindow.ScrollViewTo shp.Cells("PinX"), shp.Cells("PinY")
他にも方法があるかもしれません。

03: 名前:moto投稿日:2007/09/18(火) 21:53
yodaさん、アドバイスありがとうございます。
教えていただいた方法で実現する事ができました。
ちなみにVB2005+DrawingControlでは以下の記述で実現できました。
vdcOCX.Window.ScrollViewTo (shp.Cells("PinX").ResultIU, shp.Cells("PinY").ResultIU)
ありがとうございました。


VB/VBAトップへ ▲カッ飛び先頭