vba作图坐标轴选项文字方向如何调整为竖排

yysyzlyb

我用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

yysyzlyb

跪求大神，有没有人帮忙看看？

蓝桥玄霜

竖排的设置：

yysyzlyb

蓝桥玄霜 发表于 2019-11-18 15:28
竖排的设置：

我知道手动设置的方式，我需要的是VBA代码，详见我的说明。

蓝桥玄霜

竖排的代码：

yysyzlyb

蓝桥玄霜 发表于 2019-11-19 09:00
竖排的代码：

我试过录制宏，竖排和堆积的参数都是xlVertical，用我贴出来的代码出来的结果是堆积，不是竖排。