Outlook VBA 调用 Excel dialog.show 失败

Question

我有一个 Outlook 宏失败，运行时错误 1004"对话框类的显示方法失败"在线：

xlApp.Dialogs(xlDialogColorPalette).Show

代码的相关部分(或者我认为(是：

Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private WithEvents respItem As MailItem
Private xlApp As Excel.Application
Private bDiscardEvents As Boolean

Private Sub Application_Startup()
Set xlApp = CreateObject("Excel.Application")    
Set oExpl = Application.ActiveExplorer
bDiscardEvents = False
End Sub

Private Sub respItem_Send(cancel As Boolean)    
bDiscardEvents = True
Dim orgbody As String       
orgbody = respItem.HTMLBody

xlApp.Dialogs(xlDialogColorPalette).Show       

谢谢很多！

Answer 1

一些最小的代码，按照公共xlApp变量的想法：

Option Explicit
Private xlApp As Excel.Application
Sub TestMe()
Set xlApp = CreateObject("Excel.Application")
Dim someWb As Workbook
Set someWb = xlApp.Workbooks.Add
xlApp.Visible = True
If xlApp.Dialogs(xlDialogEditColor).Show(56) Then
someWb.Worksheets(1).Range("A1").Interior.Color = ActiveWorkbook.Colors(56)
End If
End Sub

---

这些是xlDialogEditColor的参数 - color_num、red_value、green_value blue_value

• MSDN 内置对话框参数列表