☰

Excel 缩放线条粗细

tag-icon • tag-icon microsoft-excel
Excel 缩放线条粗细

我有一个奇怪的问题，希望有人能帮助我解决。

我有一组数据集，想要有与每个值的百分比相关的各种粗细的线。

例如，我有不同的来源，并希望代表线 1 的线条最粗（占 65%），线 2 可以较小（占 20%），线 3 最细（占最后 15%）。有没有办法让线条粗细自动调整以表示百分比？

答案1

可以设置线的粗细。

选项1：

仅折线图中的线，使用单元格值。

但请永远记住，此过程从未考虑过Numbers, in General format价值Percentage format。

为了实现目标，您需要 VBA（宏）。

在此处输入图片描述

怎么运行的：

  • 在 Sheet 中输入所需数据并分配姓名 到 Range，使用公式然后定义名称并结束好的。

在此处输入图片描述

  • 右键点击工作表标签& 从弹出菜单中选择查看代码。
  • Excel 将打开 VB 编辑器。

  • 复制&粘贴此代码为标准模块。

    Sub SetWidth()
 Dim Srs As Series
 Dim myWidth As Range
 Dim Rn As Range
 Dim j As Long

 Set myWidth = Range("Thickness")

 j = 1

 With ActiveSheet
    For Each Rn In myWidth
        If j > ActiveChart.SeriesCollection.Count Then Exit Sub
        ActiveChart.SeriesCollection(j).Format.Line.Weight = Rn
        j = j + 1
    Next Rn
  End With
 End Sub

  • 选择图表 &跑步宏。

您会发现图表中的线条有了新的宽度。

笔记， Thickness是给予 Range 的名称A1:C2，也是可编辑的。

选项 2：

改变线对象的高度/宽度。

使用此宏作为标准模块。

Sub LineWidth()

     With ActiveSheet.Shapes("Straight Connector 2")
        .Visible = True
        .Width = Range("A1").Value
        .Height = Range("A2").Value
    End With

End Sub

笔记， Straight Connector 2是 Line 对象。

相关内容