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

分享到: