运行时错误-2147417848（80010108） - 对象'Range'的方法'Offset'失败-Java 学习之路

创建下面的宏是为了更新气泡图中使用的图像 . 工作表“NTA图表”包含气泡图表和工作表“饼图”包含用作气泡图像的饼图 . 分发服务器是数据点的名称，一个饼图与一个数据点相关 .

我现在收到错误“运行时错误-2147417848（80010108） - 对象'范围'的方法'偏移'失败 . ”当我尝试调试行“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

1 回答

0
这似乎是某种错误 . 解决方法是将该行更改为：
```
strDistributor = Range(chtTemp.TopLeftCell.Address).Offset(-1).Address
```
或者这取决于你想要的字符串结果：
```
strDistributor = Range(chtTemp.TopLeftCell.Address).Offset(-1).value
```
希望能帮助到你 .
回复于 2024-05-15T05:58:55+08:00

运行时错误-2147417848（80010108） - 对象'Range'的方法'Offset'失败

1 回答

相关问题