vb 中如何设置圆的颜色，包括边框和填充的颜色

边框一定要是有颜色的，没颜色的边框不采纳... 边框一定要是有颜色的，没颜色的边框不采纳展开

 我来答

3个回答

#热议# 应届生在签三方时要注意什么？

百百mp3
2011-11-06 · TA获得超过855个赞

知道小有建树答主

回答量：901

采纳率：90%

帮助的人：550万

我也去答题访问个人页

关注

展开全部

Shape的BorderColor为边框颜色
Shape的FillColor为填充的颜色

已赞过 已踩过<

评论收起

博思aippt
2024-07-20 广告

作为深圳市博思云创科技有限公司的工作人员，对于Word文档生成PPT的操作，我们有以下建议：1. 使用另存为功能：在Word中编辑完文档后，点击文件->另存为，选择PowerPoint演示文稿（*.pptx）格式，即可将文档内容转换为PPT... 点击进入详情页

本回答由博思aippt提供

zx001z7d53
2011-11-06 · TA获得超过2万个赞

知道大有可为答主

回答量：2.4万

采纳率：52%

帮助的人：5652万

我也去答题访问个人页

关注

展开全部

Private Sub Form_Click()
Me.FillStyle = 0
Me.FillColor = vbGreen
Me.Circle ((ScaleWidth + ScaleLeft) / 2, (ScaleHeight + ScaleTop) / 2), ScaleWidth / 4, vbRed
End Sub

更多追问追答

追问

有没有简单点的

追答

用SHAPE控件

本回答被提问者采纳

已赞过 已踩过<

评论收起

鱼木混猪哟

高粉答主

2015-12-15 · 专注Office，尤其Excel和VBA

鱼木混猪哟

采纳数：6078 获赞数：33696

向TA提问私信TA

关注

展开全部

代码及注释：
假设圆为shapes(1)
Sub main()
Shapes(1).Fill.ForeColor.RGB = RGB(255, 255, 0)'将图形填充颜色变为黄色
Shapes(1).Line.ForeColor.RGB = RGB(255, 0, 0)'将图形边框颜色变为红色
End Sub