Colour palette not coming even after firing the code in 64bit Powerpoint VBA

Question

I have used the color picker code from here: Show color picker for user to choose from in VBA powerpoint

This code is working well in Powerpoint 32 bit vba. But it does not work in 64 bit, MS365. I modified it using Ptrsafe and also changing few long to longptr. But still the colour palette does not appear when I am running the code.

Please help me.

I am working on Windows 10 64 Bit and Office 365 32 Bit and the code is working well. — YasserKhalil, Apr 17 '20 at 06:48
Please restructure your question to show the code you are trying to use for your 64 bit version. — Riley Carney, Apr 17 '20 at 15:20

score 0 · Answer 1 · answered Apr 17 '20 at 06:53

0

Try to change to

Private Declare PtrSafe Function ChooseColor_Dlg Lib "comdlg32.dll" Alias "ChooseColorA" (pcc As CHOOSECOLOR_TYPE) As LongPtr

Private Type CHOOSECOLOR_TYPE
lStructSize As LongPtr
hwndOwner As LongPtr
hInstance As LongPtr
rgbResult As LongPtr
lpCustColors As LongPtr
flags As LongPtr
lCustData As LongPtr
lpfnHook As LongPtr
lpTemplateName As String
End Type

And

Static BDF(16) As LongPtr

answered Apr 17 '20 at 06:53

YasserKhalil

9,138
7
36
95

1

Thank you so much. I shall try this. – sd dg Apr 19 '20 at 12:58

Colour palette not coming even after firing the code in 64bit Powerpoint VBA

1 Answers1