庆国庆VBA画一红旗
vba 红旗 国庆
2023-06-13 09:13:56 时间
Sub 画国旗(L, T, W, H)
'Dim s1 As Shape
Dim oWK As Worksheet
Set oWK = Excel.ActiveSheet
'插入一个半径为25Point的圆
s1_L = L + (W / 30) * 5
s1_T = T + (H / 20) * 5
Set s0 = oWK.Shapes.AddShape(msoShapeRectangle, L, T, W, H)
s0.Fill.ForeColor.RGB = RGB(255, 0, 0)
Set s1 = oWK.Shapes.AddShape(msoShape5pointStar, L + (W / 30) * 2, T + (H / 20) * 2, H * 0.3, H * 0.3)
s1.Fill.ForeColor.RGB = RGB(255, 255, 0)
Set s2 = oWK.Shapes.AddShape(msoShape5pointStar, L + (W / 30) * 9, T + (H / 20) * 1, H * 0.1, H * 0.1)
s2.Fill.ForeColor.RGB = RGB(255, 255, 0)
s2.ThreeD.RotationZ = -50
Set s3 = oWK.Shapes.AddShape(msoShape5pointStar, L + (W / 30) * 11, T + (H / 20) * 3, H * 0.1, H * 0.1)
s3.Fill.ForeColor.RGB = RGB(255, 255, 0)
s3.ThreeD.RotationZ = -25
Set s4 = oWK.Shapes.AddShape(msoShape5pointStar, L + (W / 30) * 11, T + (H / 20) * 6, H * 0.1, H * 0.1)
s4.Fill.ForeColor.RGB = RGB(255, 255, 0)
Set s5 = oWK.Shapes.AddShape(msoShape5pointStar, L + (W / 30) * 9, T + (H / 20) * 8, H * 0.1, H * 0.1)
s5.Fill.ForeColor.RGB = RGB(255, 255, 0)
s5.ThreeD.RotationZ = 10
s0.Line.Visible = msoFalse
s1.Line.Visible = msoFalse
s2.Line.Visible = msoFalse
s3.Line.Visible = msoFalse
s4.Line.Visible = msoFalse
s5.Line.Visible = msoFalse
ActiveSheet.Shapes.Range(Array(s0.Name, s1.Name, s2.Name, s3.Name, s4.Name, s5.Name)).Select
Selection.ShapeRange.Group.Select
End Sub
Sub cl()
Call 画国旗(Selection.Left, Selection.Top, 450, 300)
End Sub
本代码是个人学习,
可以你选中的位置画一个450,300大小 的国旗
学习知识:
- Shapes.AddShape方法
- shapes对象的填充,线条
- shapes多对象的组合
- 各对象之间的位置关系
相关文章
- Excel中的VBA编程「建议收藏」
- VBA: 单元格区域基于指定列重新排序
- VBA: "隐藏模块中出现编译错误:<module name>"的解决对策
- Excel VBA实行学校S形分班的自定义函数
- Excel函数与VBA多条件统计不重复出现的次数
- VBA个人所得税扣缴申报表一键排版
- VBA数组的排序_vba函数返回值 数组
- 使用VBA实现数字雨效果
- Excel VBA多数据级联组合框示例
- VBA: 自动定时关闭消息框
- VBA实用小程序:将Excel中的内容输入到PowerPoint
- VBA应用技巧:根据条件设置工作表标签颜色
- Word VBA技术:复制带有自动编号的文本并在粘贴时保留编号的数字
- VBA实用小程序:获取工作表每页的地址
- 使用VBA轻松连接MySQL数据库——快速入门(vba连接mysql数据库)
- VBA学习笔记:如何连接MySQL数据库(vba连接mysql数据库)
- 『VBA助力 MSSQL数据库快速连接』(vba连接mssql)
- VBA与MSSQL结合实现强大的数据处理功能(vba mssql)
- VBA与MySQL结合,学习一种智能化教程(vba mysql 教程)
- 如何利用VBA操作Redis缓存(vba怎么使用redis)