|
例えば「面」ダイアログボックスを表示するにはこうなります。
Sub Sample()
Application.Dialogs(xlDialogGalleryArea).Show
End Sub
＜面＞ xlDialogGalleryArea＜横棒＞ xlDialogGalleryBar ＜縦棒＞ xlDialogGalleryColumn ＜折れ線＞ xlDialogGalleryLine ＜円＞ xlDialogGalleryPie ＜ドーナツ＞ xlDialogGalleryDoughnut.gif ＜レーダー＞ xlDialogGalleryRadar ＜散布図＞ xlDialogGalleryScatter ＜複合＞ xlDialogCombination ＜3-D 面＞ xlDialogGallery3dArea ＜3-D 横棒＞ xlDialogGallery3dBar ＜3-D 縦棒＞ xlDialogGallery3dColumn ＜3-D 折れ線＞ xlDialogGallery3dLine ＜3-D 円＞ xlDialogGallery3dPie ＜3-D 等高線＞ xlDialogGallery3dSurface ＜ユーザー設定＞ xlDialogGalleryCustom |