2017-11-15 3 views
-1

PowerPointテーブル内の特定のセルをどのように選択しますか?VBA PowerPointテーブル内の特定のセルを選択

Excelの書式を含むPowerPointの表に特定のセルに貼り付ける必要があります。

コードはExcelにあります。

具体的には、これは特定のセルを選択する方法です。

PPSlide.Shapes("Table 4").Table.Rows(2).Cells.Item(1).Select 

これは情報の投稿です、私はしばらくの間、それを行う方法を見つけ出すことができなかったので、私は、私は

Dim PPApp As PowerPoint.Application 
Dim PPPres As PowerPoint.Presentation 
Dim PPSlide As PowerPoint.Slide 

Set PPApp = GetObject(, "Powerpoint.Application") 
Set PPPres = PPApp.ActivePresentation 
Dim sht as Worksheet 
Set sht = ThisWorkbook.Sheets("Local Channels National View") 

    ''''''''COPY TEMPLATE SLIDE'''''''' 
    ''duplicate template slide, move to end of presentation 
    Set slideR = PPPres.Slides(3).Duplicate 
    slideR.MoveTo (PPPres.Slides.Count) 
    Set PPSlide = PPPres.Slides(PPPres.Slides.Count) 




    sht.Range("B10:F14").Copy 

    ''''select rows 2, column 1 cell 
    PPSlide.Shapes("Table 4").Table.Rows(2).Cells.Item(1).Select 

    '''paste 
    PPApp.CommandBars.ExecuteMso ("Paste") 

リソースadd.tしようと思いました: はCellRangeオブジェクト - コレクション細胞の、行または列 https://msdn.microsoft.com/en-us/VBA/PowerPoint-VBA/articles/cellrange-object-powerpoint

セルオブジェクト

https://msdn.microsoft.com/en-us/vba/powerpoint-vba/articles/cell-object-powerpoint

答えて

1

これにより、特定のセルを選択する方法である:

PPSlide.Shapes("Table 4").Table.Rows(2).Cells.Item(1).Select

+0

あなたがあなた自身の質問に答えるのはなぜ? –

+0

@DavidG。あなた自身の質問に答えることは、まったく受け入れられます。この[リンク](https://stackoverflow.com/help/self-answer)を参照してください。しかし、私はOPが回答を含まないように質問を変更することを提案します。 –

0

これは、その行と列のプロパティを使用して、単一のセルを選択するための正しい方法である:

PPSlide.Shapes("Table 4").Table.Cell(Row:=2,Column:=1).Select 
関連する問題