VBA调整文本的方向

 

调整文本方向

好久没写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

      那就赶紧试试啊~嘎嘎