小编chr*_*oss的帖子

我正在尝试动态地将多个系列添加到折线图中.我事先不知道有多少系列,所以它需要是动态的.我提出但不起作用的是以下内容:

工作表ActiveSheet(或Sheets("Data"))具有从C14到Cend的行包含来自E14的XValues和Columns:Eend直到R14:Rend其中"end"标记由C列确定的最后一行数据.系列名称存储在第9行.对于所有系列,XValues都是相同的.

我的大问题是,我无法找到一种方法将所有数据列作为系列动态添加到我的图表中以及相应的名称.我不是VBA的专家所以请善待.我已经阅读了各种来源并尝试了许多脚本,似乎都没有.对象目录有点帮助,但我的问题仍然存在.

Sub MakeChart()
Dim LastColumn As Long
Dim LastRow As Long
Dim i As Integer
Dim u As Integer
Dim NameRng As String
Dim CountsRng As Range
Dim xRng As Range

    LastColumn = ActiveSheet.Cells(8, Columns.Count).End(xlToLeft).Column
    ColumnCount = LastColumn - 4
    LastRow = ActiveSheet.Range("C" & ActiveSheet.Rows.Count).End(xlUp).Row
'   Debug.Print ("Last Column: " & LastColumn & " Count: " & ColumnCount & " LastRow: " & LastRow)

    Charts.Add
    With ActiveChart
        .ChartType = xlLineMarkers
        .HasTitle = True
        .ChartTitle.Text = "Test"
    End With …

我最近一直在寻找一种CSS布局,它将显示一个固定宽度(最小宽度,最好可扩展)的单个居中柱,占据整个高度(减去页眉和页脚).

有什么建议吗？我已尝试过这里发布的几种方法,但没有一种符合我的标准.另外,我不想为此使用JS,所以它必须是纯CSS.

我不是专家所以我不知道采取哪种方法:

三列,每侧柱边距减去中心柱宽度的一半,还有一个人造中心柱,可伸展到100%高度？我有点不喜欢这个想法,因为我的副栏目没有任何内容

带有边距0的单列自动0自动居中和顶部:xx px为标题腾出空间？然后我该如何将其拉伸至100%高度？

任何帮助高度赞赏.

干杯,chross