Gallery プロパティ

オブジェクト：Application

• Read-Only
  As Object
• 構文: Gallery

現在開いている Graph Style Gallery ノートブックをオブジェクトとして返します。

Example

• 現在開いているギャラリーファイルとそのギャラリーで利用可能な全てのスタイルを表示します。

  Dim GalleryPages$()
  Dim i As Integer
  Dim Item As Object
  i=0
  For Each Item In Gallery.NotebookItems
  If Item.ItemType = 2 Then
  ReDim Preserve GalleryPages(i)
  GalleryPages(i)=Item.Name
  i=i+1
  End If
  Next Item
  Begin Dialog UserDialog 480,203,"Gallery Pages" ' %GRID:10,7,1,1
  OKButton 390,175,80,21
  ListBox 10,28,460,140,GalleryPages(),.ListBox1
  Text 10,7,460,14,Gallery.FullName,.Text1
  End Dialog
  Dim dlg As UserDialog
  Dialog dlg