複数の画像をフォルダから降順に挿入する

Question

フォルダから複数の画像を挿入します。プログラムは、フォルダの先頭から開始し、降順でピクチャを挿入するはずですが、そうではありません。

最初の3〜5枚の写真はプレゼンテーションで最後に表示され、他のすべての表示は完全な順序です。

Sub createTransModel() 

    Dim oSlide As Slide 
    Dim oPicture As Shape 
    Dim myFile As String 
    Dim myFolder As String 
    Dim pptLayout As CustomLayout 
    Dim fileName As String 
    Dim rotSlide As Slide 

    Set pptLayout = ActivePresentation.Slides(1).CustomLayout 
    myFolder = GetFolderPath() 
    myFile = Dir(myFolder & "*.png") 

    Do While myFile <> "" 
     Set oSlide = ActivePresentation.Slides.Add(ActivePresentation.Slides.Count + 1, _ 
     ppLayoutBlank) 
     Set oPicture = oSlide.Shapes.AddPicture(myFile, _ 
      msoFalse, msoTrue, 1, 1, _ 
      ActivePresentation.PageSetup.SlideWidth, _ 
      ActivePresentation.PageSetup.SlideHeight) 

     myFile = Dir 
    Loop 

    fileName = inputBox("Please enter the filename") 
    ActivePresentation.SaveAs (fileName & ".pps") 
End Sub 


Public Function GetFolderPath() As String 


    Dim myFile As Object 
    Dim fileSelected As String 
    Dim path As String 
    Dim objPPT As Object 
    Dim i As Integer 
    Dim folderFromPath As String 
    Dim directory As String 

    directory = "M:\tm\public\Conti_Anlage\Voith Proben" 

    Set myFile = Application.FileDialog(msoFileDialogOpen) 
    With myFile 
     .InitialFileName = directory 
     .Title = "Choose File" 
     .AllowMultiSelect = False 
     If .Show <> -1 Then 
     Exit Function 
     End If 
     fileSelected = .SelectedItems(1) 
    End With 


    For i = Len(fileSelected) To 1 Step -1 
     If Mid(fileSelected, i, 1) = "\" Then 
      folderFromPath = Left(fileSelected, i) 
      Exit For 
     End If 
    Next 

    GetFolderPath = folderFromPath 

End Function 

Answer 1

ご注文の問題を解決するためにここに物事のカップル
1.がありますが、あなたは（「for」ループを使用すなわち：For Each oFile in oMyFolder.Files）フォルダ内のすべてのファイルを得ることができ、その後、彼らに道を注文あなたはそれらを（多分配列で）欲しいです。これで追加できます。
2.あなたの 'GetFolderPath'関数：私は、あなたがファイルを選択してから、選択したファイルのフォルダを返すことを望みます。あなたは 'Application.FileDialog(msoFileDialogFolderPicker)'を使うことができます。これにより、ユーザーにフォルダの選択が求められます。この方法では、フォルダの抽出について心配する必要はありません。まだ選択したファイルのフォルダを取得したい場合は、 'File System'オブジェクトを見てください。これを使用してフォルダを取得することができます（filesystemobject.GetParentFolderName(MyFile)）

Answer 2

Windowsエクスプローラウィンドウに表示されるファイルの順序は、ファイルエクスプローラの設定によって異なります。ファイルは、名前順、サイズ順、またはさまざまな方法でアルファベット順に表示されます。これはファイルエクスプローラのやり方であり、ファイルがディスク上に現れる実際の順序とは関係ありません。

Dir $を繰り返し呼び出すと、ディスクに表示される順序でファイルが表示されます。あなたが特定の順序でそれらを必要とするならば、それらを並べ替えるか、Dirによって返されたい順番でフォルダにコピーする必要があります。