excelperfect
标签：VBA
Excel有261个内置对话框，使用这些现有的对话框，可以使编写代码更加容易。
例如，下面的代码显示内置的“打印”对话框。
Dim tmp As Boolean
Application.Dialogs(xlDialogPrint).Show
tmp =Application.Dialogs(xlDialogPrint).Show
如下图1所示。
图1
又如，下面的3行代码都显示“另存为”对话框：
Application.Dialogs(xlDialogSaveAs).Show
Application.Dialogs(XlBuiltInDialog.xlDialogSaveAs).Show
Application.Dialogs(5).Show
如下图2所示。
图2
我们可以使用对话框中的所有功能，使用内置对话框可以节省大量编程工作。
在VBA对象浏览器中，我们可以找到所有的内置对话框列表。打开VBE，按F2键打开对象浏览器，在顶部的下拉列表框中选择“Excel”，搜索“XlBuiltInDialog”，显示所有内置对话框成员列表，如下图3所示。
图3
使用下面的程序将这些内置常量输入到Excel工作表中，便于查阅。
Sub xlDialogList() Dim i As Integer Dim xlDialog(1 To 261, 1 To 2) As String
xlDialog(1, 1) = 103 xlDialog(2, 1) = 476 xlDialog(3, 1) = 390 xlDialog(4, 1) = 321 xlDialog(5, 1) = 43 xlDialog(6, 1) = 133 xlDialog(7, 1) = 212 xlDialog(8, 1) = 170 xlDialog(9, 1) = 171 xlDialog(10, 1) = 12 xlDialog(11, 1) = 213 xlDialog(12, 1) = 293 xlDialog(13, 1) = 80 xlDialog(14, 1) = 323 xlDialog(15, 1) = 485 xlDialog(16, 1) = 78 xlDialog(17, 1) = 45 xlDialog(18, 1) = 32 xlDialog(19, 1) = 46 xlDialog(20, 1) = 166 xlDialog(21, 1) = 392 xlDialog(22, 1) = 527 xlDialog(23, 1) = 724 xlDialog(24, 1) = 505 xlDialog(25, 1) = 506 xlDialog(26, 1) = 540 xlDialog(27, 1) = 350 xlDialog(28, 1) = 526 xlDialog(29, 1) = 288 xlDialog(30, 1) = 435 xlDialog(31, 1) = 52 xlDialog(32, 1) = 161 xlDialog(33, 1) = 47 xlDialog(34, 1) = 73 xlDialog(35, 1) = 583 xlDialog(36, 1) = 191 xlDialog(37, 1) = 147 xlDialog(38, 1) = 108 xlDialog(39, 1) = 796 xlDialog(40, 1) = 62 xlDialog(41, 1) = 217 xlDialog(42, 1) = 1272 xlDialog(43, 1) = 276 xlDialog(44, 1) = 493 xlDialog(45, 1) = 36 xlDialog(46, 1) = 379 xlDialog(47, 1) = 723 xlDialog(48, 1) = 40 xlDialog(49, 1) = 525 xlDialog(50, 1) = 61 xlDialog(51, 1) = 229 xlDialog(52, 1) = 111 xlDialog(53, 1) = 110 xlDialog(54, 1) = 203 xlDialog(55, 1) = 27 xlDialog(56, 1) = 862 xlDialog(57, 1) = 438 xlDialog(58, 1) = 223 xlDialog(59, 1) = 54 xlDialog(60, 1) = 251 xlDialog(61, 1) = 228 xlDialog(62, 1) = 463 xlDialog(63, 1) = 464 xlDialog(64, 1) = 732 xlDialog(65, 1) = 709 xlDialog(66, 1) = 530 xlDialog(67, 1) = 35 xlDialog(68, 1) = 6 xlDialog(69, 1) = 481 xlDialog(70, 1) = 200 xlDialog(71, 1) = 301 xlDialog(72, 1) = 447 xlDialog(73, 1) = 370 xlDialog(74, 1) = 475 xlDialog(75, 1) = 26 xlDialog(76, 1) = 381 xlDialog(77, 1) = 269 xlDialog(78, 1) = 465 xlDialog(79, 1) = 423 xlDialog(80, 1) = 150 xlDialog(81, 1) = 88 xlDialog(82, 1) = 225 xlDialog(83, 1) = 128 xlDialog(84, 1) = 42 xlDialog(85, 1) = 226 xlDialog(86, 1) = 129 xlDialog(87, 1) = 89 xlDialog(88, 1) = 64 xlDialog(89, 1) = 63 xlDialog(90, 1) = 130 xlDialog(91, 1) = 450 xlDialog(92, 1) = 193 xlDialog(93, 1) = 272 xlDialog(94, 1) = 194 xlDialog(95, 1) = 195 xlDialog(96, 1) = 196 xlDialog(97, 1) = 273 xlDialog(98, 1) = 67 xlDialog(99, 1) = 68 xlDialog(100, 1) = 69 xlDialog(101, 1) = 388 xlDialog(102, 1) = 344 xlDialog(103, 1) = 70 xlDialog(104, 1) = 71 xlDialog(105, 1) = 249 xlDialog(106, 1) = 72 xlDialog(107, 1) = 198 xlDialog(108, 1) = 76 xlDialog(109, 1) = 666 xlDialog(110, 1) = 55 xlDialog(111, 1) = 596 xlDialog(112, 1) = 259 xlDialog(113, 1) = 342 xlDialog(114, 1) = 380 xlDialog(115, 1) = 438 xlDialog(116, 1) = 437 xlDialog(117, 1) = 382 xlDialog(118, 1) = 470 xlDialog(119, 1) = 339 xlDialog(120, 1) = 378 xlDialog(121, 1) = 85 xlDialog(122, 1) = 185 xlDialog(123, 1) = 1271 xlDialog(124, 1) = 322 xlDialog(125, 1) = 262 xlDialog(126, 1) = 834 xlDialog(127, 1) = 977 xlDialog(128, 1) = 119 xlDialog(129, 1) = 978 xlDialog(130, 1) = 667 xlDialog(131, 1) = 154 xlDialog(132, 1) = 207 xlDialog(133, 1) = 214 xlDialog(134, 1) = 1 xlDialog(135, 1) = 2 xlDialog(136, 1) = 188 xlDialog(137, 1) = 441 xlDialog(138, 1) = 318 xlDialog(139, 1) = 325 xlDialog(140, 1) = 319 xlDialog(141, 1) = 356 xlDialog(142, 1) = 458 xlDialog(143, 1) = 647 xlDialog(144, 1) = 355 xlDialog(145, 1) = 320 xlDialog(146, 1) = 142 xlDialog(147, 1) = 86 xlDialog(148, 1) = 186 xlDialog(149, 1) = 7 xlDialog(150, 1) = 91 xlDialog(151, 1) = 58 xlDialog(152, 1) = 53 xlDialog(153, 1) = 84 xlDialog(154, 1) = 832 xlDialog(155, 1) = 656 xlDialog(156, 1) = 570 xlDialog(157, 1) = 572 xlDialog(158, 1) = 689 xlDialog(159, 1) = 433 xlDialog(160, 1) = 313 xlDialog(161, 1) = 434 xlDialog(162, 1) = 421 xlDialog(163, 1) = 568 xlDialog(164, 1) = 567 xlDialog(165, 1) = 1183 xlDialog(166, 1) = 1153 xlDialog(167, 1) = 312 xlDialog(168, 1) = 300 xlDialog(169, 1) = 8 xlDialog(170, 1) = 9 xlDialog(171, 1) = 222 xlDialog(172, 1) = 202 xlDialog(173, 1) = 474 xlDialog(174, 1) = 754 xlDialog(175, 1) = 28 xlDialog(176, 1) = 620 xlDialog(177, 1) = 653 xlDialog(178, 1) = 445 xlDialog(179, 1) = 1258 xlDialog(180, 1) = 134 xlDialog(181, 1) = 127 xlDialog(182, 1) = 17 xlDialog(183, 1) = 5 xlDialog(184, 1) = 456 xlDialog(185, 1) = 208 xlDialog(186, 1) = 145 xlDialog(187, 1) = 285 xlDialog(188, 1) = 87 xlDialog(189, 1) = 307 xlDialog(190, 1) = 305 xlDialog(191, 1) = 308 xlDialog(192, 1) = 473 xlDialog(193, 1) = 311 xlDialog(194, 1) = 420 xlDialog(195, 1) = 731 xlDialog(196, 1) = 132 xlDialog(197, 1) = 189 xlDialog(198, 1) = 460 xlDialog(199, 1) = 557 xlDialog(200, 1) = 466 xlDialog(201, 1) = 504 xlDialog(202, 1) = 461 xlDialog(203, 1) = 462 xlDialog(204, 1) = 509 xlDialog(205, 1) = 1109 xlDialog(206, 1) = 1208 xlDialog(207, 1) = 23 xlDialog(208, 1) = 1108 xlDialog(209, 1) = 1107 xlDialog(210, 1) = 159 xlDialog(211, 1) = 204 xlDialog(212, 1) = 220 xlDialog(213, 1) = 261 xlDialog(214, 1) = 1182 xlDialog(215, 1) = 1184 xlDialog(216, 1) = 1179 xlDialog(217, 1) = 39 xlDialog(218, 1) = 192 xlDialog(219, 1) = 1134 xlDialog(220, 1) = 1133 xlDialog(221, 1) = 1135 xlDialog(222, 1) = 137 xlDialog(223, 1) = 190 xlDialog(224, 1) = 472 xlDialog(225, 1) = 44 xlDialog(226, 1) = 218 xlDialog(227, 1) = 398 xlDialog(228, 1) = 474 xlDialog(229, 1) = 41 xlDialog(230, 1) = 394 xlDialog(231, 1) = 422 xlDialog(232, 1) = 94 xlDialog(233, 1) = 201 xlDialog(234, 1) = 328 xlDialog(235, 1) = 478 xlDialog(236, 1) = 330 xlDialog(237, 1) = 197 xlDialog(238, 1) = 773 xlDialog(239, 1) = 686 xlDialog(240, 1) = 684 xlDialog(241, 1) = 687 xlDialog(242, 1) = 683 xlDialog(243, 1) = 685 xlDialog(244, 1) = 14 xlDialog(245, 1) = 13 xlDialog(246, 1) = 281 xlDialog(247, 1) = 283 xlDialog(248, 1) = 354 xlDialog(249, 1) = 282 xlDialog(250, 1) = 386 xlDialog(251, 1) = 302 xlDialog(252, 1) = 284 xlDialog(253, 1) = 417 xlDialog(254, 1) = 415 xlDialog(255, 1) = 384 xlDialog(256, 1) = 199 xlDialog(257, 1) = 95 xlDialog(258, 1) = 256 xlDialog(259, 1) = 1299 xlDialog(260, 1) = 496 xlDialog(261, 1) = 336
xlDialog(1, 2) = "xlDialogActivate" xlDialog(2, 2) = "xlDialogActiveCellFont" xlDialog(3, 2) = "xlDialogAddChartAutoformat" xlDialog(4, 2) = "xlDialogAddinManager" xlDialog(5, 2) = "xlDialogAlignment" xlDialog(6, 2) = "xlDialogApplyNames" xlDialog(7, 2) = "xlDialogApplyStyle" xlDialog(8, 2) = "xlDialogAppMove" xlDialog(9, 2) = "xlDialogAppSize" xlDialog(10, 2) = "xlDialogArrangeAll" xlDialog(11, 2) = "xlDialogAssignToObject" xlDialog(12, 2) = "xlDialogAssignToTool" xlDialog(13, 2) = "xlDialogAttachText" xlDialog(14, 2) = "xlDialogAttachToolbars" xlDialog(15, 2) = "xlDialogAutoCorrect" xlDialog(16, 2) = "xlDialogAxes" xlDialog(17, 2) = "xlDialogBorder" xlDialog(18, 2) = "xlDialogCalculation" xlDialog(19, 2) = "xlDialogCellProtection" xlDialog(20, 2) = "xlDialogChangeLink" xlDialog(21, 2) = "xlDialogChartAddData" xlDialog(22, 2) = "xlDialogChartLocation" xlDialog(23, 2) = "xlDialogChartOptionsDataLabelMultiple" xlDialog(24, 2) = "xlDialogChartOptionsDataLabels" xlDialog(25, 2) = "xlDialogChartOptionsDataTable" xlDialog(26, 2) = "xlDialogChartSourceData" xlDialog(27, 2) = "xlDialogChartTrend" xlDialog(28, 2) = "xlDialogChartType" xlDialog(29, 2) = "xlDialogChartWizard" xlDialog(30, 2) = "xlDialogCheckboxProperties" xlDialog(31, 2) = "xlDialogClear" xlDialog(32, 2) = "xlDialogColorPalette" xlDialog(33, 2) = "xlDialogColumnWidth" xlDialog(34, 2) = "xlDialogCombination" xlDialog(35, 2) = "xlDialogConditionalFormatting" xlDialog(36, 2) = "xlDialogConsolidate" xlDialog(37, 2) = "xlDialogCopyChart" xlDialog(38, 2) = "xlDialogCopyPicture" xlDialog(39, 2) = "xlDialogCreateList" xlDialog(40, 2) = "xlDialogCreateNames" xlDialog(41, 2) = "xlDialogCreatePublisher" xlDialog(42, 2) = "xlDialogCreateRelationship" xlDialog(43, 2) = "xlDialogCustomizeToolbar" xlDialog(44, 2) = "xlDialogCustomViews" xlDialog(45, 2) = "xlDialogDataDelete" xlDialog(46, 2) = "xlDialogDataLabel" xlDialog(47, 2) = "xlDialogDataLabelMultiple" xlDialog(48, 2) = "xlDialogDataSeries" xlDialog(49, 2) = "xlDialogDataValidation" xlDialog(50, 2) = "xlDialogDefineName" xlDialog(51, 2) = "xlDialogDefineStyle" xlDialog(52, 2) = "xlDialogDeleteFormat" xlDialog(53, 2) = "xlDialogDeleteName" xlDialog(54, 2) = "xlDialogDemote" xlDialog(55, 2) = "xlDialogDisplay" xlDialog(56, 2) = "xlDialogDocumentInspector" xlDialog(57, 2) = "xlDialogEditboxProperties" xlDialog(58, 2) = "xlDialogEditColor" xlDialog(59, 2) = "xlDialogEditDelete" xlDialog(60, 2) = "xlDialogEditionOptions" xlDialog(61, 2) = "xlDialogEditSeries" xlDialog(62, 2) = "xlDialogErrorbarX" xlDialog(63, 2) = "xlDialogErrorbarY" xlDialog(64, 2) = "xlDialogErrorChecking" xlDialog(65, 2) = "xlDialogEvaluateFormula" xlDialog(66, 2) = "xlDialogExternalDataProperties" xlDialog(67, 2) = "xlDialogExtract" xlDialog(68, 2) = "xlDialogFileDelete" xlDialog(69, 2) = "xlDialogFileSharing" xlDialog(70, 2) = "xlDialogFillGroup" xlDialog(71, 2) = "xlDialogFillWorkgroup" xlDialog(72, 2) = "xlDialogFilter" xlDialog(73, 2) ="xlDialogFilterAdvanced" xlDialog(74, 2) = "xlDialogFindFile" xlDialog(75, 2) = "xlDialogFont" xlDialog(76, 2) = "xlDialogFontProperties" xlDialog(77, 2) = "xlDialogFormatAuto" xlDialog(78, 2) = "xlDialogFormatChart" xlDialog(79, 2) = "xlDialogFormatCharttype" xlDialog(80, 2) = "xlDialogFormatFont" xlDialog(81, 2) = "xlDialogFormatLegend" xlDialog(82, 2) = "xlDialogFormatMain" xlDialog(83, 2) = "xlDialogFormatMove" xlDialog(84, 2) = "xlDialogFormatNumber" xlDialog(85, 2) = "xlDialogFormatOverlay" xlDialog(86, 2) = "xlDialogFormatSize" xlDialog(87, 2) = "xlDialogFormatText" xlDialog(88, 2) = "xlDialogFormulaFind" xlDialog(89, 2) = "xlDialogFormulaGoto" xlDialog(90, 2) = "xlDialogFormulaReplace" xlDialog(91, 2) = "xlDialogFunctionWizard" xlDialog(92, 2) = "xlDialogGallery3dArea" xlDialog(93, 2) = "xlDialogGallery3dBar" xlDialog(94, 2) = "xlDialogGallery3dColumn" xlDialog(95, 2) = "xlDialogGallery3dLine" xlDialog(96, 2) = "xlDialogGallery3dPie" xlDialog(97, 2) = "xlDialogGallery3dSurface" xlDialog(98, 2) = "xlDialogGalleryArea" xlDialog(99, 2) = "xlDialogGalleryBar" xlDialog(100, 2) = "xlDialogGalleryColumn" xlDialog(101, 2) = "xlDialogGalleryCustom" xlDialog(102, 2) = "xlDialogGalleryDoughnut" xlDialog(103, 2) = "xlDialogGalleryLine" xlDialog(104, 2) = "xlDialogGalleryPie" xlDialog(105, 2) = "xlDialogGalleryRadar" xlDialog(106, 2) = "xlDialogGalleryScatter" xlDialog(107, 2) = "xlDialogGoalSeek" xlDialog(108, 2) = "xlDialogGridlines" xlDialog(109, 2) = "xlDialogImportTextFile" xlDialog(110, 2) = "xlDialogInsert" xlDialog(111, 2) = "xlDialogInsertHyperlink" xlDialog(112, 2) = "xlDialogInsertObject" xlDialog(113, 2) = "xlDialogInsertPicture" xlDialog(114, 2) = "xlDialogInsertTitle" xlDialog(115, 2) = "xlDialogLabelProperties" xlDialog(116, 2) = "xlDialogListboxProperties" xlDialog(117, 2) = "xlDialogMacroOptions" xlDialog(118, 2) = "xlDialogMailEditMailer" xlDialog(119, 2) = "xlDialogMailLogon" xlDialog(120, 2) = "xlDialogMailNextLetter" xlDialog(121, 2) = "xlDialogMainChart" xlDialog(122, 2) = "xlDialogMainChartType" xlDialog(123, 2) = "xlDialogManageRelationships" xlDialog(124, 2) = "xlDialogMenuEditor" xlDialog(125, 2) = "xlDialogMove" xlDialog(126, 2) = "xlDialogMyPermission" xlDialog(127, 2) = "xlDialogNameManager" xlDialog(128, 2) = "xlDialogNew" xlDialog(129, 2) = "xlDialogNewName" xlDialog(130, 2) = "xlDialogNewWebQuery" xlDialog(131, 2) = "xlDialogNote" xlDialog(132, 2) = "xlDialogObjectProperties" xlDialog(133, 2) = "xlDialogObjectProtection" xlDialog(134, 2) = "xlDialogOpen" xlDialog(135, 2) = "xlDialogOpenLinks" xlDialog(136, 2) = "xlDialogOpenMail" xlDialog(137, 2) = "xlDialogOpenText" xlDialog(138, 2) = "xlDialogOptionsCalculation" xlDialog(139, 2) = "xlDialogOptionsChart" xlDialog(140, 2) = "xlDialogOptionsEdit" xlDialog(141, 2) = "xlDialogOptionsGeneral" xlDialog(142, 2) = "xlDialogOptionsListsAdd" xlDialog(143, 2) = "xlDialogOptionsME" xlDialog(144, 2) = "xlDialogOptionsTransition" xlDialog(145, 2) = "xlDialogOptionsView" xlDialog(146, 2) = "xlDialogOutline" xlDialog(147, 2) = "xlDialogOverlay" xlDialog(148, 2) = "xlDialogOverlayChartType" xlDialog(149, 2) = "xlDialogPageSetup" xlDialog(150, 2) = "xlDialogParse" xlDialog(151, 2) = "xlDialogPasteNames" xlDialog(152, 2) = "xlDialogPasteSpecial" xlDialog(153, 2) = "xlDialogPatterns" xlDialog(154, 2) = "xlDialogPermission" xlDialog(155, 2) = "xlDialogPhonetic" xlDialog(156, 2) = "xlDialogPivotCalculatedField" xlDialog(157, 2) = "xlDialogPivotCalculatedItem" xlDialog(158, 2) = "xlDialogPivotClientServerSet" xlDialog(159, 2) = "xlDialogPivotFieldGroup" xlDialog(160, 2) = "xlDialogPivotFieldProperties" xlDialog(161, 2) = "xlDialogPivotFieldUngroup" xlDialog(162, 2) = "xlDialogPivotShowPages" xlDialog(163, 2) = "xlDialogPivotSolveOrder" xlDialog(164, 2) = "xlDialogPivotTableOptions" xlDialog(165, 2) = "xlDialogPivotTableSlicerConnections" xlDialog(166, 2) = "xlDialogPivotTableWhatIfAnalysisSettings" xlDialog(167, 2) = "xlDialogPivotTableWizard" xlDialog(168, 2) = "xlDialogPlacement" xlDialog(169, 2) = "xlDialogPrint" xlDialog(170, 2) = "xlDialogPrinterSetup" xlDialog(171, 2) = "xlDialogPrintPreview" xlDialog(172, 2) = "xlDialogPromote" xlDialog(173, 2) = "xlDialogProperties" xlDialog(174, 2) = "xlDialogPropertyFields" xlDialog(175, 2) = "xlDialogProtectDocument" xlDialog(176, 2) = "xlDialogProtectSharing" xlDialog(177, 2) = "xlDialogPublishAsWebPage" xlDialog(178, 2) = "xlDialogPushbuttonProperties" xlDialog(179, 2) = "xlDialogRecommendedPivotTables" xlDialog(180, 2) = "xlDialogReplaceFont" xlDialog(181, 2) = "xlDialogRowHeight" xlDialog(182, 2) = "xlDialogRun" xlDialog(183, 2) = "xlDialogSaveAs" xlDialog(184, 2) = "xlDialogSaveCopyAs" xlDialog(185, 2) = "xlDialogSaveNewObject" xlDialog(186, 2) = "xlDialogSaveWorkbook" xlDialog(187, 2) = "xlDialogSaveWorkspace" xlDialog(188, 2) = "xlDialogScale" xlDialog(189, 2) = "xlDialogScenarioAdd" xlDialog(190, 2) = "xlDialogScenarioCells" xlDialog(191, 2) = "xlDialogScenarioEdit" xlDialog(192, 2) = "xlDialogScenarioMerge" xlDialog(193, 2) = "xlDialogScenarioSummary" xlDialog(194, 2) = "xlDialogScrollbarProperties" xlDialog(195, 2) = "xlDialogSearch" xlDialog(196, 2) = "xlDialogSelectSpecial" xlDialog(197, 2) = "xlDialogSendMail" xlDialog(198, 2) = "xlDialogSeriesAxes" xlDialog(199, 2) = "xlDialogSeriesOptions" xlDialog(200, 2) = "xlDialogSeriesOrder" xlDialog(201, 2) = "xlDialogSeriesShape" xlDialog(202, 2) = "xlDialogSeriesX" xlDialog(203, 2) = "xlDialogSeriesY" xlDialog(204, 2) = "xlDialogSetBackgroundPicture" xlDialog(205, 2) = "xlDialogSetManager" xlDialog(206, 2) = "xlDialogSetMDXEditor" xlDialog(207, 2) = "xlDialogSetPrintTitles" xlDialog(208, 2) = "xlDialogSetTupleEditorOnColumns" xlDialog(209, 2) = "xlDialogSetTupleEditorOnRows" xlDialog(210, 2) = "xlDialogSetUpdateStatus" xlDialog(211, 2) = "xlDialogShowDetail" xlDialog(212, 2) = "xlDialogShowToolbar" xlDialog(213, 2) = "xlDialogSize" xlDialog(214, 2) = "xlDialogSlicerCreation" xlDialog(215, 2) = "xlDialogSlicerPivotTableConnections" xlDialog(216, 2) = "xlDialogSlicerSettings" xlDialog(217, 2) = "xlDialogSort" xlDialog(218, 2) = "xlDialogSortSpecial" xlDialog(219, 2) = "xlDialogSparklineInsertColumn" xlDialog(220, 2) = "xlDialogSparklineInsertLine" xlDialog(221, 2) = "xlDialogSparklineInsertWinLoss" xlDialog(222, 2) = "xlDialogSplit" xlDialog(223, 2) = "xlDialogStandardFont" xlDialog(224, 2) = "xlDialogStandardWidth" xlDialog(225, 2) ="xlDialogStyle" xlDialog(226, 2) = "xlDialogSubscribeTo" xlDialog(227, 2) = "xlDialogSubtotalCreate" xlDialog(228, 2) = "xlDialogSummaryInfo" xlDialog(229, 2) = "xlDialogTable" xlDialog(230, 2) = "xlDialogTabOrder" xlDialog(231, 2) = "xlDialogTextToColumns" xlDialog(232, 2) = "xlDialogUnhide" xlDialog(233, 2) = "xlDialogUpdateLink" xlDialog(234, 2) = "xlDialogVbaInsertFile" xlDialog(235, 2) = "xlDialogVbaMakeAddin" xlDialog(236, 2) = "xlDialogVbaProcedureDefinition" xlDialog(237, 2) = "xlDialogView3d" xlDialog(238, 2) = "xlDialogWebOptionsBrowsers" xlDialog(239, 2) = "xlDialogWebOptionsEncoding" xlDialog(240, 2) = "xlDialogWebOptionsFiles" xlDialog(241, 2) = "xlDialogWebOptionsFonts" xlDialog(242, 2) = "xlDialogWebOptionsGeneral" xlDialog(243, 2) = "xlDialogWebOptionsPictures" xlDialog(244, 2) = "xlDialogWindowMove" xlDialog(245, 2) = "xlDialogWindowSize" xlDialog(246, 2) = "xlDialogWorkbookAdd" xlDialog(247, 2) = "xlDialogWorkbookCopy" xlDialog(248, 2) = "xlDialogWorkbookInsert" xlDialog(249, 2) = "xlDialogWorkbookMove" xlDialog(250, 2) = "xlDialogWorkbookName" xlDialog(251, 2) = "xlDialogWorkbookNew" xlDialog(252, 2) ="xlDialogWorkbookOptions" xlDialog(253, 2) = "xlDialogWorkbookProtect" xlDialog(254, 2) = "xlDialogWorkbookTabSplit" xlDialog(255, 2) = "xlDialogWorkbookUnhide" xlDialog(256, 2) = "xlDialogWorkgroup" xlDialog(257, 2) = "xlDialogWorkspace" xlDialog(258, 2) = "xlDialogZoom" xlDialog(259, 1) = "xlDialogForecastETS" xlDialog(260, 1) = "xlDialogInsertNameLabel" xlDialog(261, 1) = "xlDialogRoutingSlip"
With ActiveCell .Offset(0, 0) = "Value" .Offset(0, 0).HorizontalAlignment =xlRight .Offset(0, 1) = "Name" .Offset(i, 1).IndentLevel = 1
For i = LBound(xlDialog) ToUBound(xlDialog) .Offset(i, 0).Value = xlDialog(i,1) .Offset(i, 1).Value = xlDialog(i,2) .Offset(i, 1).IndentLevel = 1 Next i End With End Sub
在Office开发中心网站上提供了内置对话框参数列表。下面演示xlDialogWorkspace（“工作区选项”）对话框的16个参数，代码如下。
Sub xlDialogWspace() "" Arg1: 自动小数点;Arg2: 位数;Arg3: R1C1; "" Arg4: 滚动条;Arg5: 状态栏;Arg6: 编辑栏; "" Arg7: 菜单键;Arg8: 远程;Arg9 :按Enter移动; "" Arg10:下划线;Arg11: 工具;Arg12: 批注; "" Arg13:导航键;Arg14: 菜单键操作;Arg15: 拖放; "" Arg16:显示信息
"" 设置Wspace- 通过参数名 Application.Dialogs(xlDialogWorkspace).Show Arg3:=True, Arg4:=False,Arg5:=False, Arg6:=False
"" 重设Wspace- 通过位置 Application.Dialogs(xlDialogWorkspace).Show , , False, True, True, TrueEnd Sub
按参数名设置该对话框的效果如下图4所示。
图4
按位置设置该对话框的效果如下图5所示，此时忽略的参数要使用逗号。
图5
有兴趣的朋友可以进一步研究。
欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料，并通过社群加入专门的微信讨论群，更方便交流。