Как изменить фон диапазона?

[Simbad]

Приветствую всех участников форума!
Подскажите пожалуйста как задават цвет фона для выбранного диапазона из диалогого окна Application.Dialogs(xlDialogColorPa lette).Show ?
У меня это диалг. окно открывается но после выбор цвет и нажатия кнопка "Ok" выдается такой ошыбка "Метод Show из класса Dialog завершен неверно".
Заранее спасибо тем кто поможет.

[Dophin]

выложить пример

[The_Prist]

Может лучше использовать такой диалог?

Dim h
h = Application.Dialogs(xlDialogPatterns).Show()

Закрасит выделенный диапазон в выбранный цвет.

[EducatedFool]

Вбил xlDialogColorPalette в Google, и через несколько секунд нашел готовое решение:

Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" _
                                     (pChoosecolor As ChooseColor) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                                    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Private Type ChooseColor
    lStructSize As Long: hwndOwner As Long: hInstance As Long: rgbResult As Long
    lpCustColors As String: flags As Long: lCustData As Long: lpfnHook As Long: lpTemplateName As String
End Type

Private Function ShowColor() As Long
    Dim ChooseColorStructure As ChooseColor
    Dim Custcolor(16) As Long
    Dim lReturn As Long
    ChooseColorStructure.lStructSize = Len(ChooseColorStructure)
    ChooseColorStructure.hwndOwner = FindWindow("XLMAIN", Application.Caption)
    ChooseColorStructure.hInstance = 0
    ChooseColorStructure.lpCustColors = StrConv(CustomColors, vbUnicode)
    ChooseColorStructure.flags = 0
    If ChooseColor(ChooseColorStructure) <> 0 Then
        ShowColor = ChooseColorStructure.rgbResult
        CustomColors = StrConv(ChooseColorStructure.lpCustColors, vbFromUnicode)
    Else
        ShowColor = -1
    End If
End Function


Sub ПримерИспользования()
    Selection.Interior.Color = ShowColor
End Sub

Вот пример в виде файла.
Выделите диапазон, и нажмите зеленую кнопку.



PS: Где-то на русскоязычных форумах по Excel видел решение с помощью xlDialogColorPalette
(или какого-то аналогичного диалогового окна), но найти не смог.

[The_Prist]

Сообщение от EducatedFool

PS: Где-то на русскоязычных форумах по Excel видел решение с помощью xlDialogColorPalette
(или какого-то аналогичного диалогового окна), но найти не смог.

Привет, Игорь. См. выше :-)

[Simbad]

Огромное спасибо! Помогло.