作者：绿色风
分类：
时间：2022-08-17
浏览：96
楼主
biaotiger1 |
Q：如何用VBA设置纯色填充形状的透明度？
A：右键单击sheet1工作表，弹出快捷菜单→“查看代码”，在代码窗口中输入代码如下：- Sub 设置形状纯色填充的透明度()
- With Sheets("sheet1").Shapes.AddShape(msoShapeRoundedRectangle, 100, 100, 100, 100).Fill
- For N = 1 To 10
- .ForeColor.RGB = RGB(Rnd * 255 + 1, Rnd * 255 + 1, Rnd * 255 + 1)
- For i = 100 To 1 Step -1
- .Transparency = i / 100
- DoEvents
- Next i
- For i = 1 To 50
- .Transparency = i / 50
- DoEvents
- Next i
- Next N
- End With
- End Sub
运行以上代码，则在sheet1工作表中指定位置插入一个圆角矩形，并且随机填充一种颜色，该颜色从透明逐渐过渡到不透明后再逐渐变得透明。循环10次，以观察效果。
详见附件。
 设置形状纯色填充的透明度.rar
|
2楼
sam.tan |
biaotiger版,
请问如何在圆角矩形内添加字符?
谢谢 |
3楼
biaotiger1 |
- Sub 如何在文本框中添加文字()
- ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 100, 100, 100, 100).TextFrame2.TextRange.Characters.Text = "123"
- End Sub
[Excel VBA] 如何利用VBA插入一个文本框？ http://www.exceltip.net/thread-8354-1-1.html
|
4楼
biaotiger1 |
2007版的- Sub 圆角矩形添加文字()
- Sheets("sheet1").Shapes.AddShape(msoShapeRoundedRectangle, 100, 100, 100, 100).TextFrame2.TextRange.Characters.Text = "123"
- End Sub
|
5楼
sam.tan |
学习了您的[Excel VBA] ,但运行时出现了“438错误”,请帮指正问题所在?
另,我在#2楼时没有说清意图,我想您“插入一个带字符的圆角矩形,再随机填充一种颜色”。
Thanks438错误.gif
 |
6楼
biaotiger1 |
[Excel VBA] 如何用VBA设置插入形状的颜色？ http://www.exceltip.net/thread-10494-1-1.html
另外，2003版和2007版本变化较大，您用哪个版本的呢？ |
7楼
sam.tan |
Ex2003 |
8楼
biaotiger1 |
2003版本适用- Sub 形状内插入文字并随机填充颜色()
- With Sheets("sheet1").Shapes.AddShape(msoShapeRoundedRectangle, 100, 100, 100, 100)
- .TextFrame.Characters.Text = "1234"
- .Fill.ForeColor.RGB = RGB(Rnd * 255 + 1, Rnd * 255 + 1, Rnd * 255 + 1)
- End With
- End Sub
|
9楼
kevinchengcw |
这个要顶 |
10楼
jxwcy |
请问如何改形状里的图片呢？
最好2003和2007的代码都介绍下，我想学学有什么区别 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一