作者：绿色风
分类：
时间：2022-08-18
浏览：92
楼主
kevinchengcw |
以前曾下载过一个小软件，可以将文本色彩渐变，效果不错，最近研究VBA，突然想到也可以实现，现将代码及效果展示给大家分享
- Sub ColorTransition()
- Dim M, N As Integer
- Application.ScreenUpdating = False
- With ActiveDocument
- For M = 1 To .Paragraphs.Count
- With .Paragraphs(M).Range
- For N = 1 To .Characters.Count
- .Characters(N).Font.Color = RGB(255 - Int(N / .Characters.Count * 255), Int(N / .Characters.Count * 255), 255 - Int(N / .Characters.Count * 255))
- Next N
- End With
- Next M
- End With
- Application.ScreenUpdating = True
- End Sub
因为需要逐字操作，速度会有些慢，但效果相当好，如想改变颜色变化，可修改RGB后面的红，绿，蓝色字段Example.GIF
 |
2楼
kevinchengcw |
要对颜色rgb值有所了解，然后修改这段
.Characters(N).Font.Color = RGB(255 - Int(N / .Characters.Count * 255), Int(N / .Characters.Count * 255), 255 - Int(N / Characters.Count * 255))
RGB值从0~255之间，第一段是R，即Red红色，第二段是G，即Green绿色，第三段是B，即Blue蓝色，这是屏显中的三原色，具体可以在网上搜索相关内容学习一下。 |
3楼
tianyk |
颜色怎么修改呢？ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一