！！！紧急求助！！！生成树状图的代码是什么？？？

新诺司机-沃克灵

但是无法录制出来：
Sub 宏1()
'
' 宏1 宏
'

'
    ActiveSheet.Shapes.Range(Array("Chart 1")).Select
    Application.CommandBars("Format Object").Visible = False
    Application.CommandBars("Format Object").Visible = False
End Sub

新诺司机-沃克灵

但是代码里录制不出来：
Sub 宏2()
'
' 宏2 宏
'

'
    ActiveSheet.Shapes.Range(Array("Chart 2")).Select
    Application.CommandBars("Format Object").Visible = False
    ActiveSheet.Shapes("Chart 2").TextFrame2.TextRange.Characters.Text = "市场销售量"
    ActiveSheet.Shapes("Chart 2").TextFrame2.TextRange.Characters(1, 5). _
        ParagraphFormat.Alignment = msoAlignCenter
    With ActiveSheet.Shapes("Chart 2").TextFrame2.TextRange.Characters(1, 5).Font
        .BaselineOffset = 0
        .Bold = msoTrue
        .Caps = msoAllCaps
        .NameFarEast = "等线"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(89, 89, 89)
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 16
        .Italic = msoFalse
        .Kerning = 12
        .Name = "Calibri"
        .UnderlineStyle = msoNoUnderline
        .Strike = msoNoStrike
    End With
End Sub

sudongcang

用宏录制试试吧 按范围调整下代码就行

dongjuwen

新诺司机-沃克灵 发表于 2019-9-30 22:44
没长眼睛吧，我发的两段不是代码？？！！！！

这般求助？注意语气！不管帮不帮得上你，回帖就是一种支持！连感恩都不懂，如何得到帮助？

新诺司机-沃克灵

dongjuwen 发表于 2019-9-30 23:00
这般求助？注意语气！不管帮不帮得上你，回帖就是一种支持！连感恩都不懂，如何得到帮助？

我感恩你什么？做人要厚道，不要上岗上线！！！装的满口仁义道德！！！

新诺司机-沃克灵

dongjuwen 发表于 2019-9-30 23:00
这般求助？注意语气！不管帮不帮得上你，回帖就是一种支持！连感恩都不懂，如何得到帮助？

实际里一肚子坏水！！！十足的小人！！！！

yangbo164

楼主沙雕 鉴定完毕