让单元格里的数据更醒目

周晗露 · 发表于 2009-10-18 12:09

给那些视力不好的，让他们更好看清单元格内容。

cxffxc · 发表于 2009-10-18 12:29

不错

谢谢分享

jimmy1022 · 发表于 2009-10-19 12:02

好东东大家分享，谢谢提供，怎么制作？请指导

听风看雪 · 发表于 2009-10-19 12:15

很想知道是怎么做的，请版主讲一讲吧！

yangrongguan · 发表于 2009-10-19 12:20

实用有点意思怎么做的呢

zac0226 · 发表于 2009-10-19 21:06

有意思！可是多个单元格就不行了

周晗露 · 发表于 2009-10-19 21:14

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
ActiveSheet.Shapes("a").Cut
If Target.Count > 1 Then Exit Sub
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Target.Left + Target.Width + 10, Target.Top, Target.Width * 2.6, Target.Height * 2.6).Select '显示的长度，高度
With Selection
.Name = "a"
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.Fill.ForeColor.SchemeColor = 41 '显示的低颜色
.Characters.Text = Target.Value
.Characters.Font.Size = 26 '字体大小
.Characters.Font.FontStyle = "加粗"
End With
Target.Select
End Sub

引用：Microsoft Forms 2.0 Object Library

[ 本帖最后由周晗露于 2009-10-19 21:25 编辑 ]

lb_bn · 发表于 2009-10-20 19:09

这个有点意思，谢谢楼主分享。

相约去看雪 · 发表于 2010-6-13 16:19

很想知道是怎么做的，请版主说说吧

ljx63426 · 发表于 2010-7-24 23:05

谢谢分享

		自动登录	找回密码
密码			免费注册

让单元格里的数据更醒目

用的什么方法？