Application.FileDialog(msoFileDialogFilePicker) selected items order

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • kioric
    New Member
    • Jan 2016
    • 1

    Application.FileDialog(msoFileDialogFilePicker) selected items order

    I've the following code to select mutiple images to insert to a document, I will like to choose the order using the mouse. I don't know if its possible in the same msoFileDialogFi lePicker dialog or bringing the selected images to a new dialog using a different command. From tests with the current command it use the same order as displayed withe the selected items.

    Code:
    Sub Main()
         
            Dim fd As FileDialog
            Set fd = Application.FileDialog(msoFileDialogFilePicker)
            Dim vrtSelectedItem As Variant
            With fd
                If .Show = -1 Then
         
                    For Each vrtSelectedItem In .SelectedItems
         
                        MsgBox "The path is: " & vrtSelectedItem
         
                    Next vrtSelectedItem
                Else
                End If
            End With
            Set fd = Nothing
        End Sub
    Last edited by Rabbit; Feb 1 '16, 08:41 PM. Reason: Please use [code] and [/code] tags when posting code or formatted data.
Working...