VBA调整文本的方向

• 宏代码 • 12 条评论 • •9,705 次查阅

 

调整文本方向

好久没写VBA方面的了文章，今天无聊打开excel折腾了下，这两天总是在做表格。先来看看这样的。

141

41

14

14

41

如果要把上面的数字从水平抬升到自定义角度，如何实现？

那就是宏啦~代码如下：

 
  1. Sub setorientation()   
  2. Dim intorient As Integer   
  3. intorient = Application.InputBox(prompt:="请输入角度（-90~90）：", Type:=1)   
  4. Selection.Orientation = intorient   
  5. End Sub  

我之所以把它弄成宏，是因为我们没必要每次都在遇到某个事件执行，只是有需要的时候去执行。宏能满足我们！

将上述代码！存为宏！需要的时候执行！方法很简单：选择要调整的区域，再执行宏！输入你要的角度！OVER!

很简单吧！你也赶紧试试！我是懒人，我没心情每次都去单元格格式里面去一个个调整！0.0

分享到：

12 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如， ABC是本文的评论者之一，则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all '，将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称▼
  1. 太子虹

    不明白是什么，呵呵

    1. Kael.Z

      宏~呵呵~

  2. clairelume

    很久以前学过，经常不用，现在又还给老师了

    1. Kael.Z

      要处理数据没办法，不得不用啊~

  3. 水果篮子

    学习啦.我也是懒人.哈哈.

    1. Kael.Z

      现在的人都是有点懒~呼~

  4. 美容塑身专业问答博客

    看不懂,不过也来支持下.

    1. Kael.Z

      呵呵，多多关注慢慢就会懂了~

  5. aladd设计量贩铺

    好高端呀~

    1. Kael.Z

      算不上高端啊，只能算是进阶吧

  6. 红涛SEO

    还没有试过呢

    1. Kael.Z

      那就赶紧试试啊~嘎嘎