ファイル選択ダイアログで複数の画像ファイルを取得するマクロの実験 LibrOffice Calc Basic

ファイル選択ダイアログで複数の画像ファイルを取得するマクロの実験　LibrOffice Calc Basic

Sub filePicker_test1()
'ファイル選択ダイアログを開いて、画像フォーマットファイルを複数選択
'する実験
'

    dim oDoc as Object
    dim dispather as Object
    dim filePickerDlg as Object
   
    ' 設定
        'oDoc = ThisComponent.CurrentController.Frame
        'dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

    ' ファイル選択ダイアログ 初期化
        filePickerDlg = createUnoService("com.sun.star.ui.dialogs.FilePicker")
        '複数選択モードTrue
            filePickerDlg.setMultiSelectionMode(True)
        'フィルター　画像ファイル
            filePickerDlg.appendFilter("画像ファイル","*jpg;*.jpeg;*.png;*.gif;*.bmp")
    '画像選択ダイアログ表示           
        fpd=filePickerDlg.execute
        'ファイルが選択されたか？　fpd=1 選択された、fpd<>1キャンセルされた
            if fpd <> 1 then
                Exit Sub
            end if
   
    'ファイルURL取得
        for i=0 to Ubound(filePickerDlg.selectedFiles())
        'テスト表示用
            msgbox filePickerDlg.selectedFiles(i)
        next i
    'シートに画像挿入
       
End Sub
 

参考サイト　ttp://hermione.s41.xrea.com/pukiwiki/pukiwiki.php?OOoBasic%2FGeneric%2Ffiledialog

 

 

タグ：ダイアログ