VBAは今使用されているコードは、やるしかし、私はVBAを例スライドNUM.3</p> <p>のために、特定のスライドから始め例PPT、にすべてのワークシートを貼り付ける

Question

を.PPTする範囲をコピーしないでください選択した領域をPPTファイルに貼り付けないでください。私たちを手伝ってくれますか？

For Each ws In ActiveWorkbook.Worksheets 
     ws.Activate 
     Set rng = ThisWorkbook.ActiveSheet.Range("A1:Z100") 
'  Set mySlide = myPresentation.Slides.Add(myPresentation.Slides.Count + 1, 12) 
'  SlideNumb = myPresentation.Slides.Count 
     Set mySlide = myPresentation.Slides(SlideNumb).Select '(myPresentation.Slides.Count + 1, 12) '(myPresentation.Slides.Count + 1, 12) 
     rng.Copy 
     mySlide.Shapes.PasteSpecial DataType:=2 '2 = ppPasteEnhancedMetafile 
     Set myShape = mySlide.Shapes(mySlide.Shapes.Count) 
      myShape.LockAspectRatio = msoFalse 
      myShape.Left = 36.72 
      myShape.Top = 112.32 
      myShape.Width = 854.64 
      myShape.Height = 397.44 
     Application.CutCopyMode = False 
     ShtNum = ShtNum + 1 
     SlideNumb = SlideNumb + 1 
    Next ws 

Answer 1

変更この：

Set mySlide = myPresentation.Slides(SlideNumb).Select 

これに：ここで

は私のコードです

Set mySlide = myPresentation.Slides(SlideNumb) 

これを削除します。

Set myShape = mySlide.Shapes(mySlide.Shapes.Count) 
     myShape.LockAspectRatio = msoFalse 
     myShape.Left = 36.72 
     myShape.Top = 112.32 
     myShape.Width = 854.64 
     myShape.Height = 397.44 

コメントを削除してもう一度お試しください。