喝醉的字符--利用文字旋转的小把戏

作者：绿色风分类：时间：2022-08-18 浏览：66

楼主
kevinchengcw

本例利用文字旋转做出文字左右摇摆的效果，纯娱乐，代码如下：

Dim Rng As Range '定义公共变量Rng为单元格区域，便于两个子程序引用
Sub test()
Dim M, N As Integer
Application.Cursor = xlNorthwestArrow '设置光标为普通箭头，避免闪烁
M = 1 '初始化角度增减值
Set Rng = [a1] '设定单元格变量为A1单元格
N = 0 '初始化字符串角度为0
Do '循环执行
If Rng <> "" Then
Rng.Orientation = N '单元格内字符旋转角度等于变量N的值
If N = 60 Then M = -1 '如果N的值等于60 则增减量变为-1
If N = -60 Then M = 1 '如果N的值等于-60 则增减量变为1
N = N + M 'N的值等于原值加上增减量的值
DoEvents '交换系统控制权，响应其他事件
End If
Loop
End Sub
Sub QuitSub() '退出的程序代码
Application.Cursor = xlDefault '恢复光标为默认样式
Rng.Orientation = 0 '恢复单元格内文字旋转角度为0
End '结束所有代码的执行
End Sub

详见附件

喝醉的字符03版.rar

喝醉的字符07版.rar

2楼
xiangzi728

很有意思！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表