Excel VBA：在图表对象中显示线（轮廓）

下面是@davidzemens代码的一部分，非常友好地提供给我的另一半。我想展示chartobject的轮廓

是否有一种方法可以使用而不必命名chartobject（

ChtObj.name=“ChartName”

），选择并激活它，然后使用

ActiveSheet.Shapes（“ChartName”）.Line.Visible=msoTrue

    'Add the ChtObj frame:
    Set ChtObj = ws.ChartObjects.Add(100, 100, 400, 400)
    'Size the chart, paste the picture in the chart, export
    With ChtObj
        .Width = shp.Width
        .Height = shp.Height
        shp.Copy
        Sleep 1000  '1000 milliseconds = 1 second
        .Chart.Paste
        .Chart.Export Filename:=fname, FilterName:="png"
        .Delete
    End With

---

是的，你能做到；导出之前，必须使用图表对象的

.ShapeRange

属性（在带有ChtObj的

中）：

With ChtObj
    .Width = shp.Width
    .Height = shp.Height
 ' here
    .ShapeRange.Line.Visible = msoTrue
 ' done
    shp.Copy
    Sleep 1000  '1000 milliseconds = 1 second
    .Chart.Paste
    .Chart.Export Filename:=fname, FilterName:="png"
    .Delete
End With

非常感谢@JChomel。对原始格式感到抱歉。需要仔细阅读如何获得文本链接。