运行时错误

2024-06-03 21:35| 来源: 网络整理| 查看: 265

下面的宏是为了更新气泡图中使用的图像而创建的。工作表“NTA图表”包含气泡图表和工作表“饼图”包含用作气泡图像的饼图。经销商是数据点的名称，一个饼图涉及一个数据点。运行时错误-2147417848（80010108） - 对象'范围'的方法'偏移'失败

我现在收到错误“运行时错误-2147417848（80010108） - 对象'Range'的方法'Offset'失败。”当我尝试调试“strDistributor = chtTemp.TopLeftCell.Offset（-1）”行时突出显示。这是在Excel 2003中设计的，但我现在使用的是Excel 2010.

Option Explicit Sub MakePieMarker() Dim chtMain As Chart Dim chtTemp As ChartObject Dim strDistributor As String Dim lngSeries As Long Set chtMain = ActiveWorkbook.Charts("NTA Chart") With ActiveWorkbook.Worksheets("Pie Charts") For Each chtTemp In .ChartObjects strDistributor = chtTemp.TopLeftCell.Offset(-1) lngSeries = CLng(Mid(strDistributor, 12)) chtTemp.CopyPicture xlScreen, xlPicture chtMain.SeriesCollection(lngSeries).Paste Next End With End Sub

来源

2015-02-08 Jill

【本文地址】

运行时错误

运行时错误

今日新闻

推荐新闻