從文件夾插入多個圖片降序

我從一個文件夾插入一些圖片。該程序應該從文件夾的頂部開始，並按照降序插入圖片，但不會。從文件夾插入多個圖片降序

最初的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

來源

2016-09-06 Christian

如果您選擇的是第一個也是最後一個交換，那可能是因爲在文件對話框中使用的Windows資源管理器將它們交換了（由於過多的解決方法，它們無法再糾正的舊錯誤）。在這種情況下，交換列表中的第一個和最後一個項目。 – Christoph

我也有這個bug，但已經修復了。雖然它不在我發佈的代碼中。該錯誤似乎是獨立於那個 – Christian

不，我看，這不是你的問題在這裏，你手動循環瀏覽這些文件，而不是在文件對話框中選擇多個。 – Christoph

有幾件事情在這裏
1.要解決訂單問題，你可以得到該文件夾中的所有文件（即使用「for」循環：For Each oFile in oMyFolder.Files），然後命令他們的方式你想要他們（也許在一個數組中）。現在你可以添加它們。
2.您的'GetFolderPath'功能：從我所看到的，您希望用戶選擇一個文件，然後返回所選文件的文件夾。你可以使用'Application.FileDialog(msoFileDialogFolderPicker)'。這將要求用戶選擇一個文件夾。這樣你就不必擔心提取文件夾。如果您仍想獲取所選文件的文件夾，請查看'File System'對象。您可以使用它來獲取文件夾（即filesystemobject.GetParentFolderName(MyFile)）

來源

2016-09-06 12:49:27 Zac

您在Windows文件資源管理器窗口中看到的文件順序取決於您的文件資源管理器設置。文件可能按字母順序按名稱，大小順序或按其他各種方式排序顯示。這是文件資源管理器正在做的事情，並且與文件在磁盤上的實際排列順序無關。

當重複調用Dir $時，會按照磁盤上出現的順序顯示文件。如果您想按特定順序排列它們，則必須按照您希望它們由Dir返回的順序對它們進行排序，或者將它們複製到文件夾中。

來源

2016-09-06 15:17:15

從文件夾插入多個圖片降序

回答

相關問題