Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Temmuz 2003 Pazar

Path Information and Setting

'Module1

Sub Path_Information()
MsgBox "The Office Path is " & Application.Path
MsgBox "The Path Separator is " & Application.PathSeparator
MsgBox "The current default File Path is " & Application.DefaultFilePath
MsgBox "The ActiveWorkbook Path is " & Application.ActiveWorkbook.Path
MsgBox "The Alt StartUp Path is " & Application.AltStartupPath
MsgBox "The Library Path is " & Application.LibraryPath
MsgBox "The Network Templates Path is " & Application.NetworkTemplatesPath
MsgBox "The Startup Path is " & Application.StartupPath
MsgBox "The Templates Path is " & Application.TemplatesPath
MsgBox "The UserLibrary Path is " & Application.UserLibraryPath
MsgBox "The ThisWorkbook Path is " & Application.ThisWorkbook.Path
End Sub
Sub SetPath()
Application.AutoRecover.Path = "C:\"
End Sub


2 Temmuz 2003 Çarşamba

Built-in Dialog Box Argument Lists





'UserForm1

'Add Tools on UserForm1: Label1...4, ListBox1, CheckBox1...5, TextBox1...5
Option Explicit
Dim i As Single
Dim No As Double, Seçim As Double
Dim Bulgu As Variant

Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®]Built-in Dialog Box Argument Lists"
Application.Visible = True
With ListBox1
.ColumnCount = 4
.ColumnWidths = "36;48;132;640"
End With
Call DialogListesiOluştur
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
Application.Visible = True
End Sub
Private Sub ListBox1_Click()
On Error GoTo 0
TextBox1.Value = "": TextBox2.Value = "": TextBox3.Value = "": TextBox4.Value = "": TextBox5.Value = ""
CheckBox1.Value = False: CheckBox2.Value = False: CheckBox3.Value = False: CheckBox4.Value = False: CheckBox5.Value = False
No = ListBox1.ListIndex
Seçim = ListBox1.List(No, 1)
On Error GoTo D1: Bulgu = Application.Dialogs(Seçim): CheckBox1.Value = True: TextBox1.Value = Bulgu
D1: On Error GoTo D2: Bulgu = Application.Dialogs(Seçim).Application: CheckBox2.Value = True: TextBox2.Value = Bulgu
D2: On Error GoTo D3: Bulgu = Application.Dialogs(Seçim).Creator: CheckBox3.Value = True: TextBox3.Value = Bulgu
D3: On Error GoTo D4: Bulgu = Application.Dialogs(Seçim).Parent: CheckBox4.Value = True: TextBox4.Value = Bulgu
D4: On Error GoTo D5: Bulgu = Application.Dialogs(Seçim).Show: CheckBox5.Value = True: TextBox5.Value = Bulgu: Exit Sub
D5: Err.Clear: TextBox1.Value = ""
End Sub
Sub DialogListesiOluştur() '[Built-in Dialog Box Argument Lists]
On Error Resume Next
ListBox1.AddItem 1: ListBox1.List(No, 1) = xlDialogActivate: ListBox1.List(No, 2) = "xlDialogActivate": ListBox1.List(No, 3) = "window_text, pane_num": No = No + 1
ListBox1.AddItem 2: ListBox1.List(No, 1) = xlDialogActiveCellFont: ListBox1.List(No, 2) = "xlDialogActiveCellFont": ListBox1.List(No, 3) = "font, font_style, size, strikethrough, superscript, subscript, outline, shadow, underline, color, normal, background, start_char, char_count": No = No + 1
ListBox1.AddItem 3: ListBox1.List(No, 1) = xlDialogAddChartAutoformat: ListBox1.List(No, 2) = "xlDialogAddChartAutoformat": ListBox1.List(No, 3) = "name_text, desc_text": No = No + 1
ListBox1.AddItem 4: ListBox1.List(No, 1) = xlDialogAddinManager: ListBox1.List(No, 2) = "xlDialogAddinManager": ListBox1.List(No, 3) = "operation_num, addinname_text, copy_logical": No = No + 1
ListBox1.AddItem 5: ListBox1.List(No, 1) = xlDialogAlignment: ListBox1.List(No, 2) = "xlDialogAlignment": ListBox1.List(No, 3) = "horiz_align, wrap, vert_align, orientation, add_indent": No = No + 1
ListBox1.AddItem 6: ListBox1.List(No, 1) = xlDialogApplyNames: ListBox1.List(No, 2) = "xlDialogApplyNames": ListBox1.List(No, 3) = "name_array, ignore, use_rowcol, omit_col, omit_row, order_num, append_last": No = No + 1
ListBox1.AddItem 7: ListBox1.List(No, 1) = xlDialogApplyStyle: ListBox1.List(No, 2) = "xlDialogApplyStyle": ListBox1.List(No, 3) = "style_text": No = No + 1
ListBox1.AddItem 8: ListBox1.List(No, 1) = xlDialogAppMove: ListBox1.List(No, 2) = "xlDialogAppMove": ListBox1.List(No, 3) = "x_num, y_num": No = No + 1
ListBox1.AddItem 9: ListBox1.List(No, 1) = xlDialogAppSize: ListBox1.List(No, 2) = "xlDialogAppSize": ListBox1.List(No, 3) = "x_num, y_num": No = No + 1
ListBox1.AddItem 10: ListBox1.List(No, 1) = xlDialogArrangeAll: ListBox1.List(No, 2) = "xlDialogArrangeAll": ListBox1.List(No, 3) = "arrange_num, active_doc, sync_horiz, sync_vert": No = No + 1
ListBox1.AddItem 11: ListBox1.List(No, 1) = xlDialogAssignToObject: ListBox1.List(No, 2) = "xlDialogAssignToObject": ListBox1.List(No, 3) = "macro_ref": No = No + 1
ListBox1.AddItem 12: ListBox1.List(No, 1) = xlDialogAssignToTool: ListBox1.List(No, 2) = "xlDialogAssignToTool": ListBox1.List(No, 3) = "bar_id, position, macro_ref": No = No + 1
ListBox1.AddItem 13: ListBox1.List(No, 1) = xlDialogAttachText: ListBox1.List(No, 2) = "xlDialogAttachText": ListBox1.List(No, 3) = "attach_to_num, series_num, point_num": No = No + 1
ListBox1.AddItem 14: ListBox1.List(No, 1) = xlDialogAttachToolbars: ListBox1.List(No, 2) = "xlDialogAttachToolbars": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 15: ListBox1.List(No, 1) = xlDialogAutoCorrect: ListBox1.List(No, 2) = "xlDialogAutoCorrect": ListBox1.List(No, 3) = "correct_initial_caps, capitalize_days": No = No + 1
ListBox1.AddItem 16: ListBox1.List(No, 1) = xlDialogAxes: ListBox1.List(No, 2) = "xlDialogAxes": ListBox1.List(No, 3) = "x_primary, y_primary, x_secondary, y_secondary": No = No + 1
ListBox1.AddItem 17: ListBox1.List(No, 1) = xlDialogAxes: ListBox1.List(No, 2) = "xlDialogAxes": ListBox1.List(No, 3) = "x_primary, y_primary, z_primary": No = No + 1
ListBox1.AddItem 18: ListBox1.List(No, 1) = xlDialogBorder: ListBox1.List(No, 2) = "xlDialogBorder": ListBox1.List(No, 3) = "outline, left, right, top, bottom, shade, outline_color, left_color, right_color, top_color, bottom_color": No = No + 1
ListBox1.AddItem 19: ListBox1.List(No, 1) = xlDialogCalculation: ListBox1.List(No, 2) = "xlDialogCalculation": ListBox1.List(No, 3) = "type_num, iter, max_num, max_change, update, precision, date_1904, calc_save, save_values, alt_exp, alt_form": No = No + 1
ListBox1.AddItem 20: ListBox1.List(No, 1) = xlDialogCellProtection: ListBox1.List(No, 2) = "xlDialogCellProtection": ListBox1.List(No, 3) = "locked, hidden": No = No + 1
ListBox1.AddItem 21: ListBox1.List(No, 1) = xlDialogChangeLink: ListBox1.List(No, 2) = "xlDialogChangeLink": ListBox1.List(No, 3) = "old_text, new_text, type_of_link": No = No + 1
ListBox1.AddItem 22: ListBox1.List(No, 1) = xlDialogChartAddData: ListBox1.List(No, 2) = "xlDialogChartAddData": ListBox1.List(No, 3) = "ref, rowcol, titles, categories, replace, series": No = No + 1
ListBox1.AddItem 23: ListBox1.List(No, 1) = xlDialogChartLocation: ListBox1.List(No, 2) = "xlDialogChartLocation": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 24: ListBox1.List(No, 1) = xlDialogChartOptionsDataLabels: ListBox1.List(No, 2) = "xlDialogChartOptionsDataLabels": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 25: ListBox1.List(No, 1) = xlDialogChartOptionsDataTable: ListBox1.List(No, 2) = "xlDialogChartOptionsDataTable": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 26: ListBox1.List(No, 1) = xlDialogChartSourceData: ListBox1.List(No, 2) = "xlDialogChartSourceData": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 27: ListBox1.List(No, 1) = xlDialogChartTrend: ListBox1.List(No, 2) = "xlDialogChartTrend": ListBox1.List(No, 3) = "type, ord_per, forecast, backcast, intercept, equation, r_squared, name": No = No + 1
ListBox1.AddItem 28: ListBox1.List(No, 1) = xlDialogChartType: ListBox1.List(No, 2) = "xlDialogChartType": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 29: ListBox1.List(No, 1) = xlDialogChartWizard: ListBox1.List(No, 2) = "xlDialogChartWizard": ListBox1.List(No, 3) = "long, ref, gallery_num, type_num, plot_by, categories, ser_titles, legend, title, x_title, y_title, z_title, number_cats, number_titles": No = No + 1
ListBox1.AddItem 30: ListBox1.List(No, 1) = xlDialogCheckboxProperties: ListBox1.List(No, 2) = "xlDialogCheckboxProperties": ListBox1.List(No, 3) = "value, link, accel_text, accel2_text, 3d_shading": No = No + 1
ListBox1.AddItem 31: ListBox1.List(No, 1) = xlDialogClear: ListBox1.List(No, 2) = "xlDialogClear": ListBox1.List(No, 3) = "type_num": No = No + 1
ListBox1.AddItem 32: ListBox1.List(No, 1) = xlDialogColorPalette: ListBox1.List(No, 2) = "xlDialogColorPalette": ListBox1.List(No, 3) = "file_text": No = No + 1
ListBox1.AddItem 33: ListBox1.List(No, 1) = xlDialogColumnWidth: ListBox1.List(No, 2) = "xlDialogColumnWidth": ListBox1.List(No, 3) = "width_num, reference, standard, type_num, standard_num": No = No + 1
ListBox1.AddItem 34: ListBox1.List(No, 1) = xlDialogCombination: ListBox1.List(No, 2) = "xlDialogCombination": ListBox1.List(No, 3) = "type_num": No = No + 1
ListBox1.AddItem 35: ListBox1.List(No, 1) = xlDialogConditionalFormatting: ListBox1.List(No, 2) = "xlDialogConditionalFormatting": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 36: ListBox1.List(No, 1) = xlDialogConsolidate: ListBox1.List(No, 2) = "xlDialogConsolidate": ListBox1.List(No, 3) = "source_refs, function_num, top_row, left_col, create_links": No = No + 1
ListBox1.AddItem 37: ListBox1.List(No, 1) = xlDialogCopyChart: ListBox1.List(No, 2) = "xlDialogCopyChart": ListBox1.List(No, 3) = "size_num": No = No + 1
ListBox1.AddItem 38: ListBox1.List(No, 1) = xlDialogCopyPicture: ListBox1.List(No, 2) = "xlDialogCopyPicture": ListBox1.List(No, 3) = "appearance_num, size_num, type_num": No = No + 1
ListBox1.AddItem 39: ListBox1.List(No, 1) = xlDialogCreateNames: ListBox1.List(No, 2) = "xlDialogCreateNames": ListBox1.List(No, 3) = "top, left, bottom, right": No = No + 1
ListBox1.AddItem 40: ListBox1.List(No, 1) = xlDialogCreatePublisher: ListBox1.List(No, 2) = "xlDialogCreatePublisher": ListBox1.List(No, 3) = "file_text, appearance, size, formats": No = No + 1
ListBox1.AddItem 41: ListBox1.List(No, 1) = xlDialogCustomizeToolbar: ListBox1.List(No, 2) = "xlDialogCustomizeToolbar": ListBox1.List(No, 3) = "category": No = No + 1
ListBox1.AddItem 42: ListBox1.List(No, 1) = xlDialogCustomViews: ListBox1.List(No, 2) = "xlDialogCustomViews": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 43: ListBox1.List(No, 1) = xlDialogDataDelete: ListBox1.List(No, 2) = "xlDialogDataDelete": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 44: ListBox1.List(No, 1) = xlDialogDataLabel: ListBox1.List(No, 2) = "xlDialogDataLabel": ListBox1.List(No, 3) = "show_option, auto_text, show_key": No = No + 1
ListBox1.AddItem 45: ListBox1.List(No, 1) = xlDialogDataSeries: ListBox1.List(No, 2) = "xlDialogDataSeries": ListBox1.List(No, 3) = "rowcol, type_num, date_num, step_value, stop_value, trend": No = No + 1
ListBox1.AddItem 46: ListBox1.List(No, 1) = xlDialogDataValidation: ListBox1.List(No, 2) = "xlDialogDataValidation": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 47: ListBox1.List(No, 1) = xlDialogDefineName: ListBox1.List(No, 2) = "xlDialogDefineName": ListBox1.List(No, 3) = "name_text, refers_to, macro_type, shortcut_text, hidden, category, local": No = No + 1
ListBox1.AddItem 48: ListBox1.List(No, 1) = xlDialogDefineStyle: ListBox1.List(No, 2) = "xlDialogDefineStyle": ListBox1.List(No, 3) = "style_text, number, font, alignment, border, pattern, protection": No = No + 1
ListBox1.AddItem 49: ListBox1.List(No, 1) = xlDialogDefineStyle: ListBox1.List(No, 2) = "xlDialogDefineStyle": ListBox1.List(No, 3) = "style_text, attribute_num, additional_def_args, ...": No = No + 1
ListBox1.AddItem 50: ListBox1.List(No, 1) = xlDialogDeleteFormat: ListBox1.List(No, 2) = "xlDialogDeleteFormat": ListBox1.List(No, 3) = "format_text": No = No + 1
ListBox1.AddItem 51: ListBox1.List(No, 1) = xlDialogDeleteName: ListBox1.List(No, 2) = "xlDialogDeleteName": ListBox1.List(No, 3) = "name_text": No = No + 1
ListBox1.AddItem 52: ListBox1.List(No, 1) = xlDialogDemote: ListBox1.List(No, 2) = "xlDialogDemote": ListBox1.List(No, 3) = "row_col": No = No + 1
ListBox1.AddItem 53: ListBox1.List(No, 1) = xlDialogDisplay: ListBox1.List(No, 2) = "xlDialogDisplay": ListBox1.List(No, 3) = "formulas, gridlines, headings, zeros, color_num, reserved, outline, page_breaks, object_num": No = No + 1
ListBox1.AddItem 54: ListBox1.List(No, 1) = xlDialogDisplay: ListBox1.List(No, 2) = "xlDialogDisplay": ListBox1.List(No, 3) = "cell, formula, value, format, protection, names, precedents, dependents, note": No = No + 1
ListBox1.AddItem 55: ListBox1.List(No, 1) = xlDialogEditboxProperties: ListBox1.List(No, 2) = "xlDialogEditboxProperties": ListBox1.List(No, 3) = "validation_num, multiline_logical, vscroll_logical, password_logical": No = No + 1
ListBox1.AddItem 56: ListBox1.List(No, 1) = xlDialogEditColor: ListBox1.List(No, 2) = "xlDialogEditColor": ListBox1.List(No, 3) = "color_num, red_value, green_value, blue_value": No = No + 1
ListBox1.AddItem 57: ListBox1.List(No, 1) = xlDialogEditDelete: ListBox1.List(No, 2) = "xlDialogEditDelete": ListBox1.List(No, 3) = "shift_num": No = No + 1
ListBox1.AddItem 58: ListBox1.List(No, 1) = xlDialogEditionOptions: ListBox1.List(No, 2) = "xlDialogEditionOptions": ListBox1.List(No, 3) = "edition_type, edition_name, reference, option, appearance, size, formats": No = No + 1
ListBox1.AddItem 59: ListBox1.List(No, 1) = xlDialogEditSeries: ListBox1.List(No, 2) = "xlDialogEditSeries": ListBox1.List(No, 3) = "series_num, name_ref, x_ref, y_ref, z_ref, plot_order": No = No + 1
ListBox1.AddItem 60: ListBox1.List(No, 1) = xlDialogErrorbarX: ListBox1.List(No, 2) = "xlDialogErrorbarX": ListBox1.List(No, 3) = "include, type, amount, minus": No = No + 1
ListBox1.AddItem 61: ListBox1.List(No, 1) = xlDialogErrorbarY: ListBox1.List(No, 2) = "xlDialogErrorbarY": ListBox1.List(No, 3) = "include, type, amount, minus": No = No + 1
ListBox1.AddItem 62: ListBox1.List(No, 1) = xlDialogExternalDataProperties: ListBox1.List(No, 2) = "xlDialogExternalDataProperties": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 63: ListBox1.List(No, 1) = xlDialogExtract: ListBox1.List(No, 2) = "xlDialogExtract": ListBox1.List(No, 3) = "unique": No = No + 1
ListBox1.AddItem 64: ListBox1.List(No, 1) = xlDialogFileDelete: ListBox1.List(No, 2) = "xlDialogFileDelete": ListBox1.List(No, 3) = "file_text": No = No + 1
ListBox1.AddItem 65: ListBox1.List(No, 1) = xlDialogFileSharing: ListBox1.List(No, 2) = "xlDialogFileSharing": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 66: ListBox1.List(No, 1) = xlDialogFillGroup: ListBox1.List(No, 2) = "xlDialogFillGroup": ListBox1.List(No, 3) = "type_num": No = No + 1
ListBox1.AddItem 67: ListBox1.List(No, 1) = xlDialogFillWorkgroup: ListBox1.List(No, 2) = "xlDialogFillWorkgroup": ListBox1.List(No, 3) = "type_num": No = No + 1
ListBox1.AddItem 68: ListBox1.List(No, 1) = xlDialogFilter: ListBox1.List(No, 2) = "xlDialogFilter": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 69: ListBox1.List(No, 1) = xlDialogFilterAdvanced: ListBox1.List(No, 2) = "xlDialogFilterAdvanced": ListBox1.List(No, 3) = "operation, list_ref, criteria_ref, copy_ref, unique": No = No + 1
ListBox1.AddItem 70: ListBox1.List(No, 1) = xlDialogFindFile: ListBox1.List(No, 2) = "xlDialogFindFile": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 71: ListBox1.List(No, 1) = xlDialogFont: ListBox1.List(No, 2) = "xlDialogFont": ListBox1.List(No, 3) = "name_text, size_num": No = No + 1
ListBox1.AddItem 72: ListBox1.List(No, 1) = xlDialogFontProperties: ListBox1.List(No, 2) = "xlDialogFontProperties": ListBox1.List(No, 3) = "font, font_style, size, strikethrough, superscript, subscript, outline, shadow, underline, color, normal, background, start_char, char_count": No = No + 1
ListBox1.AddItem 73: ListBox1.List(No, 1) = xlDialogFormatAuto: ListBox1.List(No, 2) = "xlDialogFormatAuto": ListBox1.List(No, 3) = "format_num, number, font, alignment, border, pattern, width": No = No + 1
ListBox1.AddItem 74: ListBox1.List(No, 1) = xlDialogFormatChart: ListBox1.List(No, 2) = "xlDialogFormatChart": ListBox1.List(No, 3) = "layer_num, view, overlap, angle, gap_width, gap_depth, chart_depth, doughnut_size, axis_num, drop, hilo, up_down, series_line, labels, vary": No = No + 1
ListBox1.AddItem 75: ListBox1.List(No, 1) = xlDialogFormatCharttype: ListBox1.List(No, 2) = "xlDialogFormatCharttype": ListBox1.List(No, 3) = "apply_to, group_num, dimension, type_num": No = No + 1
ListBox1.AddItem 76: ListBox1.List(No, 1) = xlDialogFormatFont: ListBox1.List(No, 2) = "xlDialogFormatFont": ListBox1.List(No, 3) = "color, backgd, apply, name_text, size_num, bold, italic, underline, strike, outline, shadow, object_id, start_num, char_num": No = No + 1
ListBox1.AddItem 77: ListBox1.List(No, 1) = xlDialogFormatFont: ListBox1.List(No, 2) = "xlDialogFormatFont": ListBox1.List(No, 3) = "name_text, size_num, bold, italic, underline, strike, color, outline, shadow": No = No + 1
ListBox1.AddItem 78: ListBox1.List(No, 1) = xlDialogFormatFont: ListBox1.List(No, 2) = "xlDialogFormatFont": ListBox1.List(No, 3) = "name_text, size_num, bold, italic, underline, strike, color, outline, shadow, object_id_text, start_num, char_num": No = No + 1
ListBox1.AddItem 79: ListBox1.List(No, 1) = xlDialogFormatLegend: ListBox1.List(No, 2) = "xlDialogFormatLegend": ListBox1.List(No, 3) = "position_num": No = No + 1
ListBox1.AddItem 80: ListBox1.List(No, 1) = xlDialogFormatMain: ListBox1.List(No, 2) = "xlDialogFormatMain": ListBox1.List(No, 3) = "type_num, view, overlap, gap_width, vary, drop, hilo, angle, gap_depth, chart_depth, up_down, series_line, labels, doughnut_size": No = No + 1
ListBox1.AddItem 81: ListBox1.List(No, 1) = xlDialogFormatMove: ListBox1.List(No, 2) = "xlDialogFormatMove": ListBox1.List(No, 3) = "x_offset, y_offset, reference": No = No + 1
ListBox1.AddItem 82: ListBox1.List(No, 1) = xlDialogFormatMove: ListBox1.List(No, 2) = "xlDialogFormatMove": ListBox1.List(No, 3) = "x_pos, y_pos": No = No + 1
ListBox1.AddItem 83: ListBox1.List(No, 1) = xlDialogFormatMove: ListBox1.List(No, 2) = "xlDialogFormatMove": ListBox1.List(No, 3) = "explosion_num": No = No + 1
ListBox1.AddItem 84: ListBox1.List(No, 1) = xlDialogFormatNumber: ListBox1.List(No, 2) = "xlDialogFormatNumber": ListBox1.List(No, 3) = "format_text": No = No + 1
ListBox1.AddItem 85: ListBox1.List(No, 1) = xlDialogFormatOverlay: ListBox1.List(No, 2) = "xlDialogFormatOverlay": ListBox1.List(No, 3) = "type_num, view, overlap, gap_width, vary, drop, hilo, angle, series_dist, series_num, up_down, series_line, labels, doughnut_size": No = No + 1
ListBox1.AddItem 86: ListBox1.List(No, 1) = xlDialogFormatSize: ListBox1.List(No, 2) = "xlDialogFormatSize": ListBox1.List(No, 3) = "width, height": No = No + 1
ListBox1.AddItem 87: ListBox1.List(No, 1) = xlDialogFormatSize: ListBox1.List(No, 2) = "xlDialogFormatSize": ListBox1.List(No, 3) = "x_off, y_off, reference": No = No + 1
ListBox1.AddItem 88: ListBox1.List(No, 1) = xlDialogFormatText: ListBox1.List(No, 2) = "xlDialogFormatText": ListBox1.List(No, 3) = "x_align, y_align, orient_num, auto_text, auto_size, show_key, show_value, add_indent": No = No + 1
ListBox1.AddItem 89: ListBox1.List(No, 1) = xlDialogFormulaFind: ListBox1.List(No, 2) = "xlDialogFormulaFind": ListBox1.List(No, 3) = "text, in_num, at_num, by_num, dir_num, match_case, match_byte": No = No + 1
ListBox1.AddItem 90: ListBox1.List(No, 1) = xlDialogFormulaGoto: ListBox1.List(No, 2) = "xlDialogFormulaGoto": ListBox1.List(No, 3) = "reference, corner": No = No + 1
ListBox1.AddItem 91: ListBox1.List(No, 1) = xlDialogFormulaReplace: ListBox1.List(No, 2) = "xlDialogFormulaReplace": ListBox1.List(No, 3) = "find_text, replace_text, look_at, look_by, active_cell, match_case, match_byte": No = No + 1
ListBox1.AddItem 92: ListBox1.List(No, 1) = xlDialogFunctionWizard: ListBox1.List(No, 2) = "xlDialogFunctionWizard": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 93: ListBox1.List(No, 1) = xlDialogGallery3dArea: ListBox1.List(No, 2) = "xlDialogGallery3dArea": ListBox1.List(No, 3) = "type_num": No = No + 1
ListBox1.AddItem 94: ListBox1.List(No, 1) = xlDialogGallery3dBar: ListBox1.List(No, 2) = "xlDialogGallery3dBar": ListBox1.List(No, 3) = "type_num": No = No + 1
ListBox1.AddItem 95: ListBox1.List(No, 1) = xlDialogGallery3dColumn: ListBox1.List(No, 2) = "xlDialogGallery3dColumn": ListBox1.List(No, 3) = "type_num": No = No + 1
ListBox1.AddItem 96: ListBox1.List(No, 1) = xlDialogGallery3dLine: ListBox1.List(No, 2) = "xlDialogGallery3dLine": ListBox1.List(No, 3) = "type_num": No = No + 1
ListBox1.AddItem 97: ListBox1.List(No, 1) = xlDialogGallery3dPie: ListBox1.List(No, 2) = "xlDialogGallery3dPie": ListBox1.List(No, 3) = "type_num": No = No + 1
ListBox1.AddItem 98: ListBox1.List(No, 1) = xlDialogGallery3dSurface: ListBox1.List(No, 2) = "xlDialogGallery3dSurface": ListBox1.List(No, 3) = "type_num": No = No + 1
ListBox1.AddItem 99: ListBox1.List(No, 1) = xlDialogGalleryArea: ListBox1.List(No, 2) = "xlDialogGalleryArea": ListBox1.List(No, 3) = "type_num, delete_overlay": No = No + 1
ListBox1.AddItem 100: ListBox1.List(No, 1) = xlDialogGalleryBar: ListBox1.List(No, 2) = "xlDialogGalleryBar": ListBox1.List(No, 3) = "type_num, delete_overlay": No = No + 1
ListBox1.AddItem 101: ListBox1.List(No, 1) = xlDialogGalleryColumn: ListBox1.List(No, 2) = "xlDialogGalleryColumn": ListBox1.List(No, 3) = "type_num, delete_overlay": No = No + 1
ListBox1.AddItem 102: ListBox1.List(No, 1) = xlDialogGalleryCustom: ListBox1.List(No, 2) = "xlDialogGalleryCustom": ListBox1.List(No, 3) = "name_text": No = No + 1
ListBox1.AddItem 103: ListBox1.List(No, 1) = xlDialogGalleryDoughnut: ListBox1.List(No, 2) = "xlDialogGalleryDoughnut": ListBox1.List(No, 3) = "type_num, delete_overlay": No = No + 1
ListBox1.AddItem 104: ListBox1.List(No, 1) = xlDialogGalleryLine: ListBox1.List(No, 2) = "xlDialogGalleryLine": ListBox1.List(No, 3) = "type_num, delete_overlay": No = No + 1
ListBox1.AddItem 105: ListBox1.List(No, 1) = xlDialogGalleryPie: ListBox1.List(No, 2) = "xlDialogGalleryPie": ListBox1.List(No, 3) = "type_num, delete_overlay": No = No + 1
ListBox1.AddItem 106: ListBox1.List(No, 1) = xlDialogGalleryRadar: ListBox1.List(No, 2) = "xlDialogGalleryRadar": ListBox1.List(No, 3) = "type_num, delete_overlay": No = No + 1
ListBox1.AddItem 107: ListBox1.List(No, 1) = xlDialogGalleryScatter: ListBox1.List(No, 2) = "xlDialogGalleryScatter": ListBox1.List(No, 3) = "type_num, delete_overlay": No = No + 1
ListBox1.AddItem 108: ListBox1.List(No, 1) = xlDialogGoalSeek: ListBox1.List(No, 2) = "xlDialogGoalSeek": ListBox1.List(No, 3) = "target_cell, target_value, variable_cell": No = No + 1
ListBox1.AddItem 109: ListBox1.List(No, 1) = xlDialogGridlines: ListBox1.List(No, 2) = "xlDialogGridlines": ListBox1.List(No, 3) = "x_major, x_minor, y_major, y_minor, z_major, z_minor, 2D_effect": No = No + 1
ListBox1.AddItem 110: ListBox1.List(No, 1) = xlDialogImportTextFile: ListBox1.List(No, 2) = "xlDialogImportTextFile": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 111: ListBox1.List(No, 1) = xlDialogInsert: ListBox1.List(No, 2) = "xlDialogInsert": ListBox1.List(No, 3) = "shift_num": No = No + 1
ListBox1.AddItem 112: ListBox1.List(No, 1) = xlDialogInsertHyperlink: ListBox1.List(No, 2) = "xlDialogInsertHyperlink": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 113: ListBox1.List(No, 1) = xlDialogInsertNameLabel: ListBox1.List(No, 2) = "xlDialogInsertNameLabel": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 114: ListBox1.List(No, 1) = xlDialogInsertObject: ListBox1.List(No, 2) = "xlDialogInsertObject": ListBox1.List(No, 3) = "object_class, file_name, link_logical, display_icon_logical, icon_file, icon_number, icon_label": No = No + 1
ListBox1.AddItem 115: ListBox1.List(No, 1) = xlDialogInsertPicture: ListBox1.List(No, 2) = "xlDialogInsertPicture": ListBox1.List(No, 3) = "file_name, filter_number": No = No + 1
ListBox1.AddItem 116: ListBox1.List(No, 1) = xlDialogInsertTitle: ListBox1.List(No, 2) = "xlDialogInsertTitle": ListBox1.List(No, 3) = "chart, y_primary, x_primary, y_secondary, x_secondary": No = No + 1
ListBox1.AddItem 117: ListBox1.List(No, 1) = xlDialogLabelProperties: ListBox1.List(No, 2) = "xlDialogLabelProperties": ListBox1.List(No, 3) = "accel_text, accel2_text, 3d_shading": No = No + 1
ListBox1.AddItem 118: ListBox1.List(No, 1) = xlDialogListboxProperties: ListBox1.List(No, 2) = "xlDialogListboxProperties": ListBox1.List(No, 3) = "range, link, drop_size, multi_select, 3d_shading": No = No + 1
ListBox1.AddItem 119: ListBox1.List(No, 1) = xlDialogMacroOptions: ListBox1.List(No, 2) = "xlDialogMacroOptions": ListBox1.List(No, 3) = "macro_name, description, menu_on, menu_text, shortcut_on, shortcut_key, function_category, status_bar_text, help_id, help_file": No = No + 1
ListBox1.AddItem 120: ListBox1.List(No, 1) = xlDialogMailEditMailer: ListBox1.List(No, 2) = "xlDialogMailEditMailer": ListBox1.List(No, 3) = "to_recipients, cc_recipients, bcc_recipients, subject, enclosures, which_address": No = No + 1
ListBox1.AddItem 121: ListBox1.List(No, 1) = xlDialogMailLogon: ListBox1.List(No, 2) = "xlDialogMailLogon": ListBox1.List(No, 3) = "name_text, password_text, download_logical": No = No + 1
ListBox1.AddItem 122: ListBox1.List(No, 1) = xlDialogMailNextLetter: ListBox1.List(No, 2) = "xlDialogMailNextLetter": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 123: ListBox1.List(No, 1) = xlDialogMainChart: ListBox1.List(No, 2) = "xlDialogMainChart": ListBox1.List(No, 3) = "type_num, stack, 100, vary, overlap, drop, hilo, overlap%, cluster, angle": No = No + 1
ListBox1.AddItem 124: ListBox1.List(No, 1) = xlDialogMainChartType: ListBox1.List(No, 2) = "xlDialogMainChartType": ListBox1.List(No, 3) = "type_num": No = No + 1
ListBox1.AddItem 125: ListBox1.List(No, 1) = xlDialogMenuEditor: ListBox1.List(No, 2) = "xlDialogMenuEditor": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 126: ListBox1.List(No, 1) = xlDialogMove: ListBox1.List(No, 2) = "xlDialogMove": ListBox1.List(No, 3) = "x_pos, y_pos, window_text": No = No + 1
ListBox1.AddItem 127: ListBox1.List(No, 1) = xlDialogNew: ListBox1.List(No, 2) = "xlDialogNew": ListBox1.List(No, 3) = "type_num, xy_series, add_logical": No = No + 1
ListBox1.AddItem 128: ListBox1.List(No, 1) = xlDialogNewWebQuery: ListBox1.List(No, 2) = "xlDialogNewWebQuery": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 129: ListBox1.List(No, 1) = xlDialogNote: ListBox1.List(No, 2) = "xlDialogNote": ListBox1.List(No, 3) = "add_text, cell_ref, start_char, num_chars": No = No + 1
ListBox1.AddItem 130: ListBox1.List(No, 1) = xlDialogObjectProperties: ListBox1.List(No, 2) = "xlDialogObjectProperties": ListBox1.List(No, 3) = "placement_type, print_object": No = No + 1
ListBox1.AddItem 131: ListBox1.List(No, 1) = xlDialogObjectProtection: ListBox1.List(No, 2) = "xlDialogObjectProtection": ListBox1.List(No, 3) = "locked, lock_text": No = No + 1
ListBox1.AddItem 132: ListBox1.List(No, 1) = xlDialogOpen: ListBox1.List(No, 2) = "xlDialogOpen": ListBox1.List(No, 3) = "file_text, update_links, read_only, format, prot_pwd, write_res_pwd, ignore_rorec, file_origin, custom_delimit, add_logical, editable, file_access, notify_logical, converter": No = No + 1
ListBox1.AddItem 133: ListBox1.List(No, 1) = xlDialogOpenLinks: ListBox1.List(No, 2) = "xlDialogOpenLinks": ListBox1.List(No, 3) = "document_text1, document_text2, ..., read_only, type_of_link": No = No + 1
ListBox1.AddItem 134: ListBox1.List(No, 1) = xlDialogOpenMail: ListBox1.List(No, 2) = "xlDialogOpenMail": ListBox1.List(No, 3) = "subject, comments": No = No + 1
ListBox1.AddItem 135: ListBox1.List(No, 1) = xlDialogOpenText: ListBox1.List(No, 2) = "xlDialogOpenText": ListBox1.List(No, 3) = "file_name, file_origin, start_row, file_type, text_qualifier, consecutive_delim, tab, semicolon, comma, space, other, other_char, field_info": No = No + 1
ListBox1.AddItem 136: ListBox1.List(No, 1) = xlDialogOptionsCalculation: ListBox1.List(No, 2) = "xlDialogOptionsCalculation": ListBox1.List(No, 3) = "type_num, iter, max_num, max_change, update, precision, date_1904, calc_save, save_values": No = No + 1
ListBox1.AddItem 137: ListBox1.List(No, 1) = xlDialogOptionsChart: ListBox1.List(No, 2) = "xlDialogOptionsChart": ListBox1.List(No, 3) = "display_blanks, plot_visible, size_with_window": No = No + 1
ListBox1.AddItem 138: ListBox1.List(No, 1) = xlDialogOptionsEdit: ListBox1.List(No, 2) = "xlDialogOptionsEdit": ListBox1.List(No, 3) = "incell_edit, drag_drop, alert, entermove, fixed, decimals, copy_objects, update_links, move_direction, autocomplete, animations": No = No + 1
ListBox1.AddItem 139: ListBox1.List(No, 1) = xlDialogOptionsGeneral: ListBox1.List(No, 2) = "xlDialogOptionsGeneral": ListBox1.List(No, 3) = "R1C1_mode, dde_on, sum_info, tips, recent_files, old_menus, user_info, font_name, font_size, default_location, alternate_location, sheet_num, enable_under": No = No + 1
ListBox1.AddItem 140: ListBox1.List(No, 1) = xlDialogOptionsListsAdd: ListBox1.List(No, 2) = "xlDialogOptionsListsAdd": ListBox1.List(No, 3) = "string_array": No = No + 1
ListBox1.AddItem 141: ListBox1.List(No, 1) = xlDialogOptionsListsAdd: ListBox1.List(No, 2) = "xlDialogOptionsListsAdd": ListBox1.List(No, 3) = "import_ref, by_row": No = No + 1
ListBox1.AddItem 142: ListBox1.List(No, 1) = xlDialogOptionsME: ListBox1.List(No, 2) = "xlDialogOptionsME": ListBox1.List(No, 3) = "def_rtl_sheet, crsr_mvmt, show_ctrl_char, gui_lang": No = No + 1
ListBox1.AddItem 143: ListBox1.List(No, 1) = xlDialogOptionsTransition: ListBox1.List(No, 2) = "xlDialogOptionsTransition": ListBox1.List(No, 3) = "menu_key, menu_key_action, nav_keys, trans_eval, trans_entry": No = No + 1
ListBox1.AddItem 144: ListBox1.List(No, 1) = xlDialogOptionsView: ListBox1.List(No, 2) = "xlDialogOptionsView": ListBox1.List(No, 3) = "formula, status, notes, show_info, object_num, page_breaks, formulas, gridlines, color_num, headers, outline, zeros, hor_scroll, vert_scroll, sheet_tabs": No = No + 1
ListBox1.AddItem 145: ListBox1.List(No, 1) = xlDialogOutline: ListBox1.List(No, 2) = "xlDialogOutline": ListBox1.List(No, 3) = "auto_styles, row_dir, col_dir, create_apply": No = No + 1
ListBox1.AddItem 146: ListBox1.List(No, 1) = xlDialogOverlay: ListBox1.List(No, 2) = "xlDialogOverlay": ListBox1.List(No, 3) = "type_num, stack, 100, vary, overlap, drop, hilo, overlap%, cluster, angle, series_num, auto": No = No + 1
ListBox1.AddItem 147: ListBox1.List(No, 1) = xlDialogOverlayChartType: ListBox1.List(No, 2) = "xlDialogOverlayChartType": ListBox1.List(No, 3) = "type_num": No = No + 1
ListBox1.AddItem 148: ListBox1.List(No, 1) = xlDialogPageSetup: ListBox1.List(No, 2) = "xlDialogPageSetup": ListBox1.List(No, 3) = "head, foot, left, right, top, bot, hdng, grid, h_cntr, v_cntr, orient, paper_size, scale, pg_num, pg_order, bw_cells, quality, head_margin, foot_margin, notes, draft": No = No + 1
ListBox1.AddItem 149: ListBox1.List(No, 1) = xlDialogPageSetup: ListBox1.List(No, 2) = "xlDialogPageSetup": ListBox1.List(No, 3) = "head, foot, left, right, top, bot, size, h_cntr, v_cntr, orient, paper_size, scale, pg_num, bw_chart, quality, head_margin, foot_margin, draft": No = No + 1
ListBox1.AddItem 150: ListBox1.List(No, 1) = xlDialogPageSetup: ListBox1.List(No, 2) = "xlDialogPageSetup": ListBox1.List(No, 3) = "head, foot, left, right, top, bot, orient, paper_size, scale, quality, head_margin, foot_margin, pg_num": No = No + 1
ListBox1.AddItem 151: ListBox1.List(No, 1) = xlDialogParse: ListBox1.List(No, 2) = "xlDialogParse": ListBox1.List(No, 3) = "parse_text, destination_ref": No = No + 1
ListBox1.AddItem 152: ListBox1.List(No, 1) = xlDialogPasteNames: ListBox1.List(No, 2) = "xlDialogPasteNames": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 153: ListBox1.List(No, 1) = xlDialogPasteSpecial: ListBox1.List(No, 2) = "xlDialogPasteSpecial": ListBox1.List(No, 3) = "paste_num, operation_num, skip_blanks, transpose": No = No + 1
ListBox1.AddItem 154: ListBox1.List(No, 1) = xlDialogPasteSpecial: ListBox1.List(No, 2) = "xlDialogPasteSpecial": ListBox1.List(No, 3) = "rowcol, titles, categories, replace, series": No = No + 1
ListBox1.AddItem 155: ListBox1.List(No, 1) = xlDialogPasteSpecial: ListBox1.List(No, 2) = "xlDialogPasteSpecial": ListBox1.List(No, 3) = "paste_num": No = No + 1
ListBox1.AddItem 156: ListBox1.List(No, 1) = xlDialogPasteSpecial: ListBox1.List(No, 2) = "xlDialogPasteSpecial": ListBox1.List(No, 3) = "format_text, pastelink_logical, display_icon_logical, icon_file, icon_number, icon_label": No = No + 1
ListBox1.AddItem 157: ListBox1.List(No, 1) = xlDialogPatterns: ListBox1.List(No, 2) = "xlDialogPatterns": ListBox1.List(No, 3) = "apattern, afore, aback, newui": No = No + 1
ListBox1.AddItem 158: ListBox1.List(No, 1) = xlDialogPatterns: ListBox1.List(No, 2) = "xlDialogPatterns": ListBox1.List(No, 3) = "lauto, lstyle, lcolor, lwt, hwidth, hlength, htype": No = No + 1
ListBox1.AddItem 159: ListBox1.List(No, 1) = xlDialogPatterns: ListBox1.List(No, 2) = "xlDialogPatterns": ListBox1.List(No, 3) = "bauto, bstyle, bcolor, bwt, shadow, aauto, apattern, afore, aback, rounded, newui": No = No + 1
ListBox1.AddItem 160: ListBox1.List(No, 1) = xlDialogPatterns: ListBox1.List(No, 2) = "xlDialogPatterns": ListBox1.List(No, 3) = "bauto, bstyle, bcolor, bwt, shadow, aauto, apattern, afore, aback, invert, apply, newfill": No = No + 1
ListBox1.AddItem 161: ListBox1.List(No, 1) = xlDialogPatterns: ListBox1.List(No, 2) = "xlDialogPatterns": ListBox1.List(No, 3) = "lauto, lstyle, lcolor, lwt, tmajor, tminor, tlabel": No = No + 1
ListBox1.AddItem 162: ListBox1.List(No, 1) = xlDialogPatterns: ListBox1.List(No, 2) = "xlDialogPatterns": ListBox1.List(No, 3) = "lauto, lstyle, lcolor, lwt, apply, smooth": No = No + 1
ListBox1.AddItem 163: ListBox1.List(No, 1) = xlDialogPatterns: ListBox1.List(No, 2) = "xlDialogPatterns": ListBox1.List(No, 3) = "lauto, lstyle, lcolor, lwt, mauto, mstyle, mfore, mback, apply, smooth": No = No + 1
ListBox1.AddItem 164: ListBox1.List(No, 1) = xlDialogPatterns: ListBox1.List(No, 2) = "xlDialogPatterns": ListBox1.List(No, 3) = "type, picture_units, apply": No = No + 1
ListBox1.AddItem 165: ListBox1.List(No, 1) = xlDialogPhonetic: ListBox1.List(No, 2) = "xlDialogPhonetic": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 166: ListBox1.List(No, 1) = xlDialogPivotCalculatedField: ListBox1.List(No, 2) = "xlDialogPivotCalculatedField": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 167: ListBox1.List(No, 1) = xlDialogPivotCalculatedItem: ListBox1.List(No, 2) = "xlDialogPivotCalculatedItem": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 168: ListBox1.List(No, 1) = xlDialogPivotClientServerSet: ListBox1.List(No, 2) = "xlDialogPivotClientServerSet": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 169: ListBox1.List(No, 1) = xlDialogPivotFieldGroup: ListBox1.List(No, 2) = "xlDialogPivotFieldGroup": ListBox1.List(No, 3) = "start, end, by, periods": No = No + 1
ListBox1.AddItem 170: ListBox1.List(No, 1) = xlDialogPivotFieldProperties: ListBox1.List(No, 2) = "xlDialogPivotFieldProperties": ListBox1.List(No, 3) = "name, pivot_field_name, new_name, orientation, function, formats": No = No + 1
ListBox1.AddItem 171: ListBox1.List(No, 1) = xlDialogPivotFieldUngroup: ListBox1.List(No, 2) = "xlDialogPivotFieldUngroup": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 172: ListBox1.List(No, 1) = xlDialogPivotShowPages: ListBox1.List(No, 2) = "xlDialogPivotShowPages": ListBox1.List(No, 3) = "name, page_field": No = No + 1
ListBox1.AddItem 173: ListBox1.List(No, 1) = xlDialogPivotSolveOrder: ListBox1.List(No, 2) = "xlDialogPivotSolveOrder": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 174: ListBox1.List(No, 1) = xlDialogPivotTableOptions: ListBox1.List(No, 2) = "xlDialogPivotTableOptions": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 175: ListBox1.List(No, 1) = xlDialogPivotTableWizard: ListBox1.List(No, 2) = "xlDialogPivotTableWizard": ListBox1.List(No, 3) = "type, source, destination, name, row_grand, col_grand, save_data, apply_auto_format, auto_page, reserved": No = No + 1
ListBox1.AddItem 176: ListBox1.List(No, 1) = xlDialogPlacement: ListBox1.List(No, 2) = "xlDialogPlacement": ListBox1.List(No, 3) = "placement_type": No = No + 1
ListBox1.AddItem 177: ListBox1.List(No, 1) = xlDialogPrint: ListBox1.List(No, 2) = "xlDialogPrint": ListBox1.List(No, 3) = "range_num, from, to, copies, draft, preview, print_what, color, feed, quality, y_resolution, selection, printer_text, print_to_file, collate": No = No + 1
ListBox1.AddItem 178: ListBox1.List(No, 1) = xlDialogPrinterSetup: ListBox1.List(No, 2) = "xlDialogPrinterSetup": ListBox1.List(No, 3) = "printer_text": No = No + 1
ListBox1.AddItem 179: ListBox1.List(No, 1) = xlDialogPrintPreview: ListBox1.List(No, 2) = "xlDialogPrintPreview": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 180: ListBox1.List(No, 1) = xlDialogPromote: ListBox1.List(No, 2) = "xlDialogPromote": ListBox1.List(No, 3) = "rowcol": No = No + 1
ListBox1.AddItem 181: ListBox1.List(No, 1) = xlDialogProperties: ListBox1.List(No, 2) = "xlDialogProperties": ListBox1.List(No, 3) = "title, subject, author, keywords, comments": No = No + 1
ListBox1.AddItem 182: ListBox1.List(No, 1) = xlDialogProtectDocument: ListBox1.List(No, 2) = "xlDialogProtectDocument": ListBox1.List(No, 3) = "contents, windows, password, objects, scenarios": No = No + 1
ListBox1.AddItem 183: ListBox1.List(No, 1) = xlDialogProtectSharing: ListBox1.List(No, 2) = "xlDialogProtectSharing": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 184: ListBox1.List(No, 1) = xlDialogPublishAsWebPage: ListBox1.List(No, 2) = "xlDialogPublishAsWebPage": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 185: ListBox1.List(No, 1) = xlDialogPushbuttonProperties: ListBox1.List(No, 2) = "xlDialogPushbuttonProperties": ListBox1.List(No, 3) = "default_logical, cancel_logical, dismiss_logical, help_logical, accel_text, accel_text2": No = No + 1
ListBox1.AddItem 186: ListBox1.List(No, 1) = xlDialogReplaceFont: ListBox1.List(No, 2) = "xlDialogReplaceFont": ListBox1.List(No, 3) = "font_num, name_text, size_num, bold, italic, underline, strike, color, outline, shadow": No = No + 1
ListBox1.AddItem 187: ListBox1.List(No, 1) = xlDialogRoutingSlip: ListBox1.List(No, 2) = "xlDialogRoutingSlip": ListBox1.List(No, 3) = "recipients, subject, message, route_num, return_logical, status_logical": No = No + 1
ListBox1.AddItem 188: ListBox1.List(No, 1) = xlDialogRowHeight: ListBox1.List(No, 2) = "xlDialogRowHeight": ListBox1.List(No, 3) = "height_num, reference, standard_height, type_num": No = No + 1
ListBox1.AddItem 189: ListBox1.List(No, 1) = xlDialogRun: ListBox1.List(No, 2) = "xlDialogRun": ListBox1.List(No, 3) = "reference, step": No = No + 1
ListBox1.AddItem 190: ListBox1.List(No, 1) = xlDialogSaveAs: ListBox1.List(No, 2) = "xlDialogSaveAs": ListBox1.List(No, 3) = "document_text, type_num, prot_pwd, backup, write_res_pwd, read_only_rec": No = No + 1
ListBox1.AddItem 191: ListBox1.List(No, 1) = xlDialogSaveCopyAs: ListBox1.List(No, 2) = "xlDialogSaveCopyAs": ListBox1.List(No, 3) = "document_text": No = No + 1
ListBox1.AddItem 192: ListBox1.List(No, 1) = xlDialogSaveNewObject: ListBox1.List(No, 2) = "xlDialogSaveNewObject": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 193: ListBox1.List(No, 1) = xlDialogSaveWorkbook: ListBox1.List(No, 2) = "xlDialogSaveWorkbook": ListBox1.List(No, 3) = "document_text, type_num, prot_pwd, backup, write_res_pwd, read_only_rec": No = No + 1
ListBox1.AddItem 194: ListBox1.List(No, 1) = xlDialogSaveWorkspace: ListBox1.List(No, 2) = "xlDialogSaveWorkspace": ListBox1.List(No, 3) = "name_text": No = No + 1
ListBox1.AddItem 195: ListBox1.List(No, 1) = xlDialogScale: ListBox1.List(No, 2) = "xlDialogScale": ListBox1.List(No, 3) = "cross, cat_labels, cat_marks, between, max, reverse": No = No + 1
ListBox1.AddItem 196: ListBox1.List(No, 1) = xlDialogScale: ListBox1.List(No, 2) = "xlDialogScale": ListBox1.List(No, 3) = "min_num, max_num, major, minor, cross, logarithmic, reverse, max": No = No + 1
ListBox1.AddItem 197: ListBox1.List(No, 1) = xlDialogScale: ListBox1.List(No, 2) = "xlDialogScale": ListBox1.List(No, 3) = "cat_labels, cat_marks, reverse, between": No = No + 1
ListBox1.AddItem 198: ListBox1.List(No, 1) = xlDialogScale: ListBox1.List(No, 2) = "xlDialogScale": ListBox1.List(No, 3) = "series_labels, series_marks, reverse": No = No + 1
ListBox1.AddItem 199: ListBox1.List(No, 1) = xlDialogScale: ListBox1.List(No, 2) = "xlDialogScale": ListBox1.List(No, 3) = "min_num, max_num, major, minor, cross, logarithmic, reverse, min": No = No + 1
ListBox1.AddItem 200: ListBox1.List(No, 1) = xlDialogScenarioAdd: ListBox1.List(No, 2) = "xlDialogScenarioAdd": ListBox1.List(No, 3) = "scen_name, value_array, changing_ref, scen_comment, locked, hidden": No = No + 1
ListBox1.AddItem 201: ListBox1.List(No, 1) = xlDialogScenarioCells: ListBox1.List(No, 2) = "xlDialogScenarioCells": ListBox1.List(No, 3) = "changing_ref": No = No + 1
ListBox1.AddItem 202: ListBox1.List(No, 1) = xlDialogScenarioEdit: ListBox1.List(No, 2) = "xlDialogScenarioEdit": ListBox1.List(No, 3) = "scen_name, new_scenname, value_array, changing_ref, scen_comment, locked, hidden": No = No + 1
ListBox1.AddItem 203: ListBox1.List(No, 1) = xlDialogScenarioMerge: ListBox1.List(No, 2) = "xlDialogScenarioMerge": ListBox1.List(No, 3) = "source_file": No = No + 1
ListBox1.AddItem 204: ListBox1.List(No, 1) = xlDialogScenarioSummary: ListBox1.List(No, 2) = "xlDialogScenarioSummary": ListBox1.List(No, 3) = "result_ref, report_type": No = No + 1
ListBox1.AddItem 205: ListBox1.List(No, 1) = xlDialogScrollbarProperties: ListBox1.List(No, 2) = "xlDialogScrollbarProperties": ListBox1.List(No, 3) = "value, min, max, inc, page, link, 3d_shading": No = No + 1
ListBox1.AddItem 206: ListBox1.List(No, 1) = xlDialogSelectSpecial: ListBox1.List(No, 2) = "xlDialogSelectSpecial": ListBox1.List(No, 3) = "type_num, value_type, levels": No = No + 1
ListBox1.AddItem 207: ListBox1.List(No, 1) = xlDialogSendMail: ListBox1.List(No, 2) = "xlDialogSendMail": ListBox1.List(No, 3) = "recipients, subject, return_receipt": No = No + 1
ListBox1.AddItem 208: ListBox1.List(No, 1) = xlDialogSeriesAxes: ListBox1.List(No, 2) = "xlDialogSeriesAxes": ListBox1.List(No, 3) = "axis_num": No = No + 1
ListBox1.AddItem 209: ListBox1.List(No, 1) = xlDialogSeriesOptions: ListBox1.List(No, 2) = "xlDialogSeriesOptions": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 210: ListBox1.List(No, 1) = xlDialogSeriesOrder: ListBox1.List(No, 2) = "xlDialogSeriesOrder": ListBox1.List(No, 3) = "chart_num, old_series_num, new_series_num": No = No + 1
ListBox1.AddItem 211: ListBox1.List(No, 1) = xlDialogSeriesShape: ListBox1.List(No, 2) = "xlDialogSeriesShape": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 212: ListBox1.List(No, 1) = xlDialogSeriesX: ListBox1.List(No, 2) = "xlDialogSeriesX": ListBox1.List(No, 3) = "x_ref": No = No + 1
ListBox1.AddItem 213: ListBox1.List(No, 1) = xlDialogSeriesY: ListBox1.List(No, 2) = "xlDialogSeriesY": ListBox1.List(No, 3) = "name_ref, y_ref": No = No + 1
ListBox1.AddItem 214: ListBox1.List(No, 1) = xlDialogSetBackgroundPicture: ListBox1.List(No, 2) = "xlDialogSetBackgroundPicture": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 215: ListBox1.List(No, 1) = xlDialogSetPrintTitles: ListBox1.List(No, 2) = "xlDialogSetPrintTitles": ListBox1.List(No, 3) = "titles_for_cols_ref, titles_for_rows_ref": No = No + 1
ListBox1.AddItem 216: ListBox1.List(No, 1) = xlDialogSetUpdateStatus: ListBox1.List(No, 2) = "xlDialogSetUpdateStatus": ListBox1.List(No, 3) = "link_text, status, type_of_link": No = No + 1
ListBox1.AddItem 217: ListBox1.List(No, 1) = xlDialogShowDetail: ListBox1.List(No, 2) = "xlDialogShowDetail": ListBox1.List(No, 3) = "rowcol, rowcol_num, expand, show_field": No = No + 1
ListBox1.AddItem 218: ListBox1.List(No, 1) = xlDialogShowToolbar: ListBox1.List(No, 2) = "xlDialogShowToolbar": ListBox1.List(No, 3) = "bar_id, visible, dock, x_pos, y_pos, width, protect, tool_tips, large_buttons, color_buttons": No = No + 1
ListBox1.AddItem 219: ListBox1.List(No, 1) = xlDialogSize: ListBox1.List(No, 2) = "xlDialogSize": ListBox1.List(No, 3) = "width, height, window_text": No = No + 1
ListBox1.AddItem 220: ListBox1.List(No, 1) = xlDialogSort: ListBox1.List(No, 2) = "xlDialogSort": ListBox1.List(No, 3) = "orientation, key1, order1, key2, order2, key3, order3, header, custom, case": No = No + 1
ListBox1.AddItem 221: ListBox1.List(No, 1) = xlDialogSort: ListBox1.List(No, 2) = "xlDialogSort": ListBox1.List(No, 3) = "orientation, key1, order1, type, custom": No = No + 1
ListBox1.AddItem 222: ListBox1.List(No, 1) = xlDialogSortSpecial: ListBox1.List(No, 2) = "xlDialogSortSpecial": ListBox1.List(No, 3) = "sort_by, method, key1, order1, key2, order2, key3, order3, header, order, case": No = No + 1
ListBox1.AddItem 223: ListBox1.List(No, 1) = xlDialogSplit: ListBox1.List(No, 2) = "xlDialogSplit": ListBox1.List(No, 3) = "col_split, row_split": No = No + 1
ListBox1.AddItem 224: ListBox1.List(No, 1) = xlDialogStandardFont: ListBox1.List(No, 2) = "xlDialogStandardFont": ListBox1.List(No, 3) = "name_text, size_num, bold, italic, underline, strike, color, outline, shadow": No = No + 1
ListBox1.AddItem 225: ListBox1.List(No, 1) = xlDialogStandardWidth: ListBox1.List(No, 2) = "xlDialogStandardWidth": ListBox1.List(No, 3) = "standard_num": No = No + 1
ListBox1.AddItem 226: ListBox1.List(No, 1) = xlDialogStyle: ListBox1.List(No, 2) = "xlDialogStyle": ListBox1.List(No, 3) = "bold, italic": No = No + 1
ListBox1.AddItem 227: ListBox1.List(No, 1) = xlDialogSubscribeTo: ListBox1.List(No, 2) = "xlDialogSubscribeTo": ListBox1.List(No, 3) = "file_text, format_num": No = No + 1
ListBox1.AddItem 228: ListBox1.List(No, 1) = xlDialogSubtotalCreate: ListBox1.List(No, 2) = "xlDialogSubtotalCreate": ListBox1.List(No, 3) = "at_change_in, function_num, total, replace, pagebreaks, summary_below": No = No + 1
ListBox1.AddItem 229: ListBox1.List(No, 1) = xlDialogSummaryInfo: ListBox1.List(No, 2) = "xlDialogSummaryInfo": ListBox1.List(No, 3) = "title, subject, author, keywords, comments": No = No + 1
ListBox1.AddItem 230: ListBox1.List(No, 1) = xlDialogTable: ListBox1.List(No, 2) = "xlDialogTable": ListBox1.List(No, 3) = "row_ref, column_ref": No = No + 1
ListBox1.AddItem 231: ListBox1.List(No, 1) = xlDialogTabOrder: ListBox1.List(No, 2) = "xlDialogTabOrder": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 232: ListBox1.List(No, 1) = xlDialogTextToColumns: ListBox1.List(No, 2) = "xlDialogTextToColumns": ListBox1.List(No, 3) = "destination_ref, data_type, text_delim, consecutive_delim, tab, semicolon, comma, space, other, other_char, field_info": No = No + 1
ListBox1.AddItem 233: ListBox1.List(No, 1) = xlDialogUnhide: ListBox1.List(No, 2) = "xlDialogUnhide": ListBox1.List(No, 3) = "window_text": No = No + 1
ListBox1.AddItem 234: ListBox1.List(No, 1) = xlDialogUpdateLink: ListBox1.List(No, 2) = "xlDialogUpdateLink": ListBox1.List(No, 3) = "link_text, type_of_link": No = No + 1
ListBox1.AddItem 235: ListBox1.List(No, 1) = xlDialogVbaInsertFile: ListBox1.List(No, 2) = "xlDialogVbaInsertFile": ListBox1.List(No, 3) = "filename_text": No = No + 1
ListBox1.AddItem 236: ListBox1.List(No, 1) = xlDialogVbaMakeAddin: ListBox1.List(No, 2) = "xlDialogVbaMakeAddIn": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 237: ListBox1.List(No, 1) = xlDialogVbaProcedureDefinition: ListBox1.List(No, 2) = "xlDialogVbaProcedureDefinition": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 238: ListBox1.List(No, 1) = xlDialogView3d: ListBox1.List(No, 2) = "xlDialogView3d": ListBox1.List(No, 3) = "elevation, perspective, rotation, axes, height%, autoscale": No = No + 1
ListBox1.AddItem 239: ListBox1.List(No, 1) = xlDialogWebOptionsEncoding: ListBox1.List(No, 2) = "xlDialogWebOptionsEncoding": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 240: ListBox1.List(No, 1) = xlDialogWebOptionsFiles: ListBox1.List(No, 2) = "xlDialogWebOptionsFiles": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 241: ListBox1.List(No, 1) = xlDialogWebOptionsFonts: ListBox1.List(No, 2) = "xlDialogWebOptionsFonts": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 242: ListBox1.List(No, 1) = xlDialogWebOptionsGeneral: ListBox1.List(No, 2) = "xlDialogWebOptionsGeneral": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 243: ListBox1.List(No, 1) = xlDialogWebOptionsPictures: ListBox1.List(No, 2) = "xlDialogWebOptionsPictures": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 244: ListBox1.List(No, 1) = xlDialogWindowMove: ListBox1.List(No, 2) = "xlDialogWindowMove": ListBox1.List(No, 3) = "x_pos, y_pos, window_text": No = No + 1
ListBox1.AddItem 245: ListBox1.List(No, 1) = xlDialogWindowSize: ListBox1.List(No, 2) = "xlDialogWindowSize": ListBox1.List(No, 3) = "width, height, window_text": No = No + 1
ListBox1.AddItem 246: ListBox1.List(No, 1) = xlDialogWorkbookAdd: ListBox1.List(No, 2) = "xlDialogWorkbookAdd": ListBox1.List(No, 3) = "name_array, dest_book, position_num": No = No + 1
ListBox1.AddItem 247: ListBox1.List(No, 1) = xlDialogWorkbookCopy: ListBox1.List(No, 2) = "xlDialogWorkbookCopy": ListBox1.List(No, 3) = "name_array, dest_book, position_num": No = No + 1
ListBox1.AddItem 248: ListBox1.List(No, 1) = xlDialogWorkbookInsert: ListBox1.List(No, 2) = "xlDialogWorkbookInsert": ListBox1.List(No, 3) = "type_num": No = No + 1
ListBox1.AddItem 249: ListBox1.List(No, 1) = xlDialogWorkbookMove: ListBox1.List(No, 2) = "xlDialogWorkbookMove": ListBox1.List(No, 3) = "name_array, dest_book, position_num": No = No + 1
ListBox1.AddItem 250: ListBox1.List(No, 1) = xlDialogWorkbookName: ListBox1.List(No, 2) = "xlDialogWorkbookName": ListBox1.List(No, 3) = "oldname_text, newname_text": No = No + 1
ListBox1.AddItem 251: ListBox1.List(No, 1) = xlDialogWorkbookNew: ListBox1.List(No, 2) = "xlDialogWorkbookNew": ListBox1.List(No, 3) = " ": No = No + 1
ListBox1.AddItem 252: ListBox1.List(No, 1) = xlDialogWorkbookOptions: ListBox1.List(No, 2) = "xlDialogWorkbookOptions": ListBox1.List(No, 3) = "sheet_name, bound_logical, new_name": No = No + 1
ListBox1.AddItem 253: ListBox1.List(No, 1) = xlDialogWorkbookProtect: ListBox1.List(No, 2) = "xlDialogWorkbookProtect": ListBox1.List(No, 3) = "structure, windows, password": No = No + 1
ListBox1.AddItem 254: ListBox1.List(No, 1) = xlDialogWorkbookTabSplit: ListBox1.List(No, 2) = "xlDialogWorkbookTabSplit": ListBox1.List(No, 3) = "ratio_num": No = No + 1
ListBox1.AddItem 255: ListBox1.List(No, 1) = xlDialogWorkbookUnhide: ListBox1.List(No, 2) = "xlDialogWorkbookUnhide": ListBox1.List(No, 3) = "sheet_text": No = No + 1
ListBox1.AddItem 256: ListBox1.List(No, 1) = xlDialogWorkgroup: ListBox1.List(No, 2) = "xlDialogWorkgroup": ListBox1.List(No, 3) = "name_array": No = No + 1
ListBox1.AddItem 257: ListBox1.List(No, 1) = xlDialogWorkspace: ListBox1.List(No, 2) = "xlDialogWorkspace": ListBox1.List(No, 3) = "fixed, decimals, r1c1, scroll, status, formula, menu_key, remote, entermove, underlines, tools, notes, nav_keys, menu_key_action, drag_drop, show_info": No = No + 1
ListBox1.AddItem 258: ListBox1.List(No, 1) = xlDialogZoom: ListBox1.List(No, 2) = "xlDialogZoom": ListBox1.List(No, 3) = "magnification": No = No + 1
End Sub

1 Temmuz 2003 Salı

Monitor Controller



'UserForm1

'Ekran Kartı bilgileri


'Add Tools on UserForm1: Label1, ListBox1, CommandButton1, Image1, Label1
Option Explicit
Dim No As Double, Sayaç As Double
Dim Eleman As Object
Dim Kontrol As Variant, Tanımı As Variant

Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®] Information Video Kontroller..."
With ListBox1
.ColumnCount = 2
.ColumnWidths = "96;72"
End With
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
ListBox1.Clear
Call EkranKartıKontrolü
End Sub
Sub EkranKartıKontrolü()
On Error Resume Next
Set Eleman = GetObject("WinMgmts:").instancesOf("Win32_VideoController")
If (Err.Number <> 0) Then
MsgBox "WMI yüklenmemiş! Programdan çıkılacak...", vbExclamation, "Windows Management Instrumentation"
Exit Sub
On Error GoTo 0
End If
For Each Kontrol In Eleman
Sayaç = Sayaç + 1
With ListBox1
Tanımı = Kontrol.AdapterCompatibility
If Tanımı = "" Then
.AddItem Sayaç & ". " & "Üretici Firma", No: .List(No, 1) = "Disabled": No = No + 1
Else
.AddItem Sayaç & ". " & "Üretici Firma", No: .List(No, 1) = Tanımı & " (" & Kontrol.Caption & ")": No = No + 1
End If
Tanımı = Kontrol.CurrentHorizontalResolution
If VBA.Val(Tanımı) = 0 Then
.AddItem Sayaç & ". " & "Yatay çözünürlük", No: .List(No, 1) = "0": No = No + 1
Else
.AddItem Sayaç & ". " & "Yatay çözünürlük", No: .List(No, 1) = Tanımı: No = No + 1
End If
Tanımı = Kontrol.CurrentVerticalResolution
If VBA.Val(Tanımı) = 0 Then
.AddItem Sayaç & ". " & "Dikey çözünürlük", No: .List(No, 1) = "0": No = No + 1
Else
.AddItem Sayaç & ". " & "Dikey çözünürlük", No: .List(No, 1) = Tanımı: No = No + 1
End If
Tanımı = Kontrol.CurrentBitsPerPixel
If VBA.Val(Tanımı) = 0 Then
.AddItem Sayaç & ". " & "Renk kalitesi", No: .List(No, 1) = "0" & " bps": No = No + 1
Else
.AddItem Sayaç & ". " & "Renk kalitesi", No: .List(No, 1) = Tanımı & " bps": No = No + 1
End If
Tanımı = Kontrol.VideoModeDescription
If Err.Number = 94 Then
.AddItem Sayaç & ". " & "Video Modu", No: .List(No, 1) = "Disabled": No = No + 1
Else
.AddItem Sayaç & ". " & "Video Modu", No: .List(No, 1) = Tanımı: No = No + 1
End If
Tanımı = Kontrol.VideoProcessor
If VBA.Trim(Tanımı) = "" Then
.AddItem Sayaç & ". " & "İşlemci", No: .List(No, 1) = "Disabled": No = No + 1
Else
.AddItem Sayaç & ". " & "İşlemci", No: .List(No, 1) = Tanımı: No = No + 1
End If
End With
Next
End Sub

Blog Arşivi

Gadget

Bu içerik henüz şifreli bağlantı üzerinden kullanılamıyor.

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul
Anadolu Üniversitesi Açık Öğretim Fakültesi