字符缩放VBA

遥控器78

我想实现字符缩放，每运行一次VBA字符缩放1%，比如原大是100%，运行一次VBA变成99%，再运行一次变成98%。。。
同时另一个VBA是增加1%，每运行一次放大1%，请问能不能实现？

AVEL

Sub 变大()
Selection.Font.Size = Selection.Font.Size + 1
End Sub
Sub 变小()
Selection.Font.Size = Selection.Font.Size - 1
End Sub

AVEL

遥控器78

AVEL 发表于 2021-9-28 16:43
Sub 变大()
Selection.Font.Size = Selection.Font.Size + 1
End Sub

谢谢帮助，但是我的意思是字符比例不是字号

AVEL

遥控器78 发表于 2021-9-28 16:57
谢谢帮助，但是我的意思是字符比例不是字号

你指的是word里面的么？

shenjianrong163

1. With Selection.Font
   
2.         .Scaling = .Scaling + 1
   
3.     End With

复制代码

遥控器78

AVEL 发表于 2021-9-28 22:08
你指的是word里面的么？

是Word里，我截图是WPS，VBA是通用的，问题已经解决了。

遥控器78

shenjianrong163 发表于 2021-9-28 23:26

太厉害了，没想到代码这么简洁，非常感谢！