ExcelからPowerPointにエクスポートするときにチャートの順序を定義する方法は？

Question

私はすべての図表がある場所のシートを作成した後、グラフをPowerPointにエクスポートするためにマクロを使用しました。

グラフをプレゼンテーションに挿入する順序を定義する方法はありますか？私はチャート1、チャート2などの名前を付けてみましたが、うまくいきませんでした。あなたがチャートグラフ1、Chart2などに名前を付ける場合は

'First we declare the variables we will be using 
Dim newPowerPoint As PowerPoint.Application 
Dim activeSlide As PowerPoint.Slide 
Dim cht As Excel.ChartObject 

'Look for existing instance 
On Error Resume Next 
Set newPowerPoint = GetObject(, "PowerPoint.Application") 
On Error GoTo 0 

'Let's create a new PowerPoint 
If newPowerPoint Is Nothing Then 
    Set newPowerPoint = New PowerPoint.Application 
End If 
'Make a presentation in PowerPoint 
If newPowerPoint.Presentations.Count = 0 Then 
    newPowerPoint.Presentations.Add 
End If 

'Show the PowerPoint 
newPowerPoint.Visible = True 

'Loop through each chart in the Excel worksheet and paste them into the PowerPoint 
For Each cht In ActiveSheet.ChartObjects 

'Add a new slide where we will paste the chart 
    newPowerPoint.ActivePresentation.Slides._ 
Add newPowerPoint.ActivePresentation.Slides.Count + 1, ppLayoutText 
    newPowerPoint.ActiveWindow.View._ 
GotoSlide newPowerPoint.ActivePresentation.Slides.Count 
    Set activeSlide = newPowerPoint.ActivePresentation._ 
Slides(newPowerPoint.ActivePresentation.Slides.Count) 

'Copy the chart and paste it into the PowerPoint as a Metafile Picture 
    ActiveSheet.Unprotect "password" 
    cht.Select 
    ActiveChart.ChartArea.Copy 
    activeSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select 
    ActiveSheet.Protect "password" 

'Set the title of the slide the same as the title of the chart 
    'activeSlide.Shapes(1).TextFrame.TextRange.Text = cht.Chart.ChartTitle.Text 

'Adjust the positioning of the Chart on Powerpoint Slide 
    newPowerPoint.ActiveWindow.Selection.ShapeRange.Left = 1 
    newPowerPoint.ActiveWindow.Selection.ShapeRange.Top = 1 

    'activeSlide.Shapes(2).Width = 200 
    'activeSlide.Shapes(2).Left = 505 

Next 

AppActivate ("Microsoft PowerPoint") 
Set activeSlide = Nothing 
Set newPowerPoint = Nothing 

Answer 1

が、あなたは、単にあなたがそれらを順にグラフを行うには、あなたのループを調整する必要があります。

はここでマクロコードです。私はあなたのコードの残りの部分は立って考える

For iCht = 1 To ActiveSheet.ChartObjects.Count Set cht = ActiveSheet.ChartObjects("Chart" & CStr(iCht))

：

はその後にループを変更、ロングとしてiChtを宣言します。