VBA - どのようにExcelで特定のチャートを選択して、単一のスライド上に貼り付けるには、電力の点で

Question

私は次のコードを持っている：

Sub Export_Allcahrts_ppt() 
    Dim mypowerpoint As PowerPoint.Application 
    Dim mypowerpoint_pres As PowerPoint.Presentation 
    Dim myslide As PowerPoint.Slide 
    Dim mychart As ChartObject 

    Set mypowerpoint = New PowerPoint.Application 
    mypowerpoint.Visible = msoTrue 
    Set mypowerpoint_pres = mypowerpoint.Presentations.Add 
    Set myslide = mypowerpoint_pres.Slides.Add(1, ppLayoutBlank) 
    For Each mychart In Sheet1.ChartObjects 
    mychart.Copy 
    myslide.Shapes.PasteSpecial ppPasteBitmap 
    With myslide.Shapes(myslide.Shapes.Count) 
     .Top = 100 
     .Height = 200 
     .Left = 30 
    End With 
    Next 
End Sub 

シート1のグラフ1のような特定のチャートを選択する方法を、シートのチャート2 2をExcelの1つのスライドに貼り付けて貼り付けますか？

Answer 1

これはブック内のすべてのシートを繰り返して、探しているチャートをチェックします。チャートの名前がsheet1のchart1のような場合は、

Set wb as activeworkbook 
For Each sht In wb.Worksheets 
    For Each cht In sht.ChartObjects 
    'check for name of chart, if statements or a case select statement. 
    if cht.name = "Chart" & sht.index then 

     'Copy to PPT 
    end if 

    Next cht 
Next sht