PowerPoint VBA OleFormatオブジェクトのリンクを破る

Question

2つの埋め込みExcelオブジェクトを備えたPowerPoint 2007スライドを持っています。 Sheet1タブにアクセスして、すべてのリンクを破りたいです。 私は価値によってコピーして貼り付けようとしていましたが、私は立ち往生していますが、コードは実行されますが、それは何もしません。 任意の助けが大いに感謝されています。

スライドとしてのDIM OSL オブジェクトとしての薄暗いOsheet PowerPoint.Application.Application. PowerPoint.presentation

として薄暗いpppres ActivePresentation.Slidesの各OSLの

OSL.Shapes

の各OSHについて

ActiveWindow.View.GotoSlide oSl.SlideIndex
    If oSh.Type = msoEmbeddedOLEObject Then
          oSh.OLEFormat.Activate
              With oSh.OLEFormat.Object

            .Application.Workbooks(1).Worksheets(1).Cells.Copy
           .Application.Workbooks(1).Worksheets(1).Cells.PasteSpecial Paste:=xlPasteValues


             End With


        ActiveWindow.Selection.Unselect
        ActiveWindow.View.GotoSlide oSl.SlideIndex

    End If

Next

.

次の 終了SUB

Answer 1

updated /編集...アプリケーションの更新行をスキップして、代わりに次のようにしてください。

If oSh.Type = msoEmbeddedOLEObject Then
    With oSh.OLEFormat.Object   ' added .Object here
        .Activate
        .Application.workbooks(1).worksheets(2).Cells.Copy
        .Application.workbooks(1).worksheets(2).Cells.PasteSpecial Paste:=xlPasteValues
    End With
End if

.

最初に、長い= 4163として定数LxPasteValuesを定義するか、または上記のコードにXLPasteValuesを-4163に置き換えます。