OLEFormat (неизвестный участник): неверный запрос в PowerPoint - PullRequest
Новая
       23

OLEFormat (неизвестный участник): неверный запрос в PowerPoint

2 голосов
/ 24 января 2012

Я использую этот конкретный код Велисария: 

Sub a()

Dim oSl As PowerPoint.Slide
Dim oSh As PowerPoint.Shape

Set oSl = ActivePresentation.Slides(1)

Set oSh = oSl.Shapes(1)

With oSh.OLEFormat.Object.WorkSheets(1)
    .Range("A1").Value = .Range("A1").Value + 1
    .Range("A2").Value = .Range("A2").Value - 1
End With

Set oSl = Nothing
Set oSh = Nothing

End Sub

Я встроил линейную диаграмму (с возможностью изменения значений в Excel), используя меню вставки в PowerPoint 2010. Я получаю сообщение об ошибке: «OLEFormat (неизвестный член): неверный запрос». Я знаю, что это сработало для кого-то там, но, видимо, я вставил не объект. Почему я получаю эту ошибку?

1 Ответ

1 голос
/ 24 января 2012

Доступ к основному листу Excel немного сложен - попробуйте этот подход вместо 

  Sub Test()
Dim myChart As Chart
Dim myChartData As ChartData
Dim myWorkBook As Object
Dim myWorkSheet As Object

Set myChart = ActivePresentation.Slides(1).Shapes(1).Chart
Set myChartData = myChart.ChartData

myChartData.Activate

Set myWorkBook = myChartData.Workbook
Set myWorkSheet = myWorkBook.Worksheets(1)

With myWorkSheet
    .Range("A1").Value = .Range("A1").Value + 1
    .Range("A2").Value = .Range("A2").Value - 1
End With
myWorkBook.Close
Set myWorkBook = Nothing
End Sub
...