VBA调用系统调色板

在Excel中设置单元格字体格式时，用户可以在调色板中选择颜色，如下图所示。

在VBA代码中如何提供调色板让用户选择颜色呢？
一种方法是调用Excel的系统对话框实现设置颜色，对话框如下图所示。

Application.Dialogs(xlDialogFont).Show

但是，并不是所有的格式设置都有与之对应的系统对话框可以在代码中调用，所以调用系统调色板供用户选择颜色，然后使用代码设置格式是更加通用的实现方式。

Type udtColorlStructSize As LonghwndOwner As LonghInstance As LongrgbResult As LonglpstrColors As Stringflags As LonglCustData As LonglpfnHook As LonglpTemplateName As Long
End Type
Declare Function ChooseColorA Lib "Comdlg32" _(lpChooseColor As udtColor) As Long
Sub Demo030()Dim strColors As String * 16Dim udtMyColor As udtColorWith udtMyColor.lStructSize = 36.lpstrColors = strColorsEnd WithIf ChooseColorA(udtMyColor) = 0 Then Exit Sub[A1].Font.Color = udtMyColor.rgbResult
End Sub

第21行代码调用API函数ChooseColorA，显示系统调色板如下图，用户选择的颜色保存在udtMyColor中。

第22行代码中udtMyColor.rgbResult返回颜色的RGB值，用于设置字体颜色。

VBA调用系统调色板相关推荐

android 相机拍照返回,Android6.0机型上调用系统相机拍照返回的resultCode值始终等于0的问题...
版权声明:本文为博主原创文章,未经博主允许不得转载. 正常情况下调用系统相机拍照: 如果拍照后点击的是"确定"图标,返回的resultCode = -1(Activity.RESU ...
使用VBA调用jar传递参数，并获取返回值
目录 ■VBA代码 ■Java代码 ■运行效果 Excel Log效果 (通过VBA调用jar后,运行,生成的Log) ■课题 ■课题原因(直接原因) ●log4j的配置 ■课题验证 ■课题解决(其他 ...
android不调用系统发送短信,android之两种方式调用短信发送接口
释放双眼,带上耳机,听听看~! 相信很多程序员在开发程序的时候都会遇到短信调用端口的情况,今天是技术狗小编为大家带来的关于android之两种方式调用短信发送接口,希望对你学习这方面知识有帮助! an ...
如何调用系统的包安装自己的apk呢？
其实看着觉着好像不知道如何实现其实就是调用系统的intent来完成安装案例驱动: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 2 ...
android视频录制(调用系统视频录制)
2019独角兽企业重金招聘Python工程师标准>>> 最近客户有一个视频录制的需求,于是,我就整理下可行的方案. 启动系统视频录制的代码: Intent mIntent = new ...
14.3.1 调用系统的拍照功能
14.3.1 调用系统的拍照功能 http://book.51cto.com 2010-06-22 14:19 李宁中国水利水电出版社我要评论(0) 摘要:<Android/OPho ...
android调用文件管理打开某个路径,安卓通过intent调用系统文件管理器打开指定路径目录...
当我们知道一个文件的路径,如何调用系统文件管理器显示它的位置呢. 代码: private void openAssignFolder(String path){ File file = new Fil ...
Auto.js 调用系统短信、电话
本文所有教程及源码.软件仅为技术研究.不涉及计算机信息系统功能的删除.修改.增加.干扰,更不会影响计算机信息系统的正常运行.不得将代码用于非法用途,如侵立删! Auto.js 调用系统短信.电话操作 ...
(调用系统电话薄)运行时权限的基本使用
GitHub项目地址: https://github.com/Skymqq/RuntimePermissionTest.git 运行时权限是Android6.0系统引入的新特性,那么为何要引入这种运行 ...

VBA调用系统调色板

VBA调用系统调色板相关推荐

最新文章

热门文章