|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 yysyzlyb 于 2019-11-12 18:18 编辑
我用vba作图,遇到坐标轴选项文字方向始终运行不对,求教大神
我想将坐标轴文字方向调整为竖排
但是运行结果出来却是堆积的方式
通过录制宏查看,并没有堆积排列的属性代码
就差最后这一个bug了
代码如下
Sub ChartAdd()
Dim myRange As Range
Dim myChart As ChartObject
With Sheet1
.ChartObjects.Delete
Set myRange = .Range("A" & 28 & ":D" & 34)
Set myChart = .ChartObjects.Add(240, 360, 400, 300)
With myChart.Chart
.ChartType = xlColumnStacked
.SetSourceData Source:=myRange, PlotBy:=xlColumns
.ApplyDataLabels ShowValue:=True
.HasTitle = True
With .Axes(xlCategory).TickLabels '横坐标轴属性设置,纵向设置不成功
.Font.Size = 8
.Font.Name = "微软雅黑"
.Orientation = xlVertical '此处运行结果不是竖排,录制宏测试,堆积没有专门的代码
End With
.Axes(xlCategory).MajorTickMark = xlNone '删除横坐标轴刻度
End With
End With
End Sub
|
-
这是vba代码运行的结果,可以看到文字是堆积的
-
-
这是手动调整的,是我想要的结果
-
-
文字竖排.zip
22.11 KB, 下载次数: 9
原始文件及vba语句
|