Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
vba использование диалоговых окон, наткнулся на ограничения в использовании диалогового окна saveas, как обойти
 
#1
30.05.2016 13:26:13
разрабатываю программку для работы со схемами вышивок.
нужно сохранить получившуюся на листе схему( в виде сообщества разноокрашенных ячеек) в виде рисунка.
наиболее подходяще - FileDialog(msoFileDialogSaveAs), но не дает изменить фильтр хотябы на "*.*"
как бы обойти?
Живи и дай жить..
 
 
 
#2
30.05.2016 14:37:55
может с примером кода будет лехче?
Код
Sub saveasjpg()
    Application.ScreenUpdating = False
    'With rab
    '    .Shapes("pl").Visible = False
    '    .Shapes("mn").Visible = False
    'End With
    ActiveWindow.VisibleRange.CopyPicture 1
    Dim rez&, dlg, s$
    With Charts.Add
        .Paste
        
        Set dlg = Application.FileDialog(msoFileDialogSaveAs)
            dlg.FilterIndex = 4
            dlg.InitialFileName = ""
            dlg.Title = "сохранение как рисунка jpg"
            dlg.ButtonName = "ОК"
            dlg.AllowMultiSelect = False
'            dlg.Filters.Add "", "*.*"
            DoEvents
            rez = dlg.Show
            If rez = -1 Then
                s = dlg.SelectedItems(1)
                If s <> "" Then
                    s = Left(s, InStrRev(s, ".") - 1)
                    s = s & ".jpg"
                    .Export s
                End If
            End If
        Application.DisplayAlerts = False
        Set dlg = Nothing
        .Delete
    End With
    With rab
        .Shapes("pl").Visible = True
        .Shapes("mn").Visible = True
    End With
End Sub
dlg.Filters.Add "", "*.*"
как раз и невыполняет
Изменено: Слэн - 30.05.2016 14:43:06
Живи и дай жить..
 
 
 
#3
30.05.2016 14:51:08
Насколько знаю для типа диалога SaveAs коллекция Filters недоступна для изменения. А Application.GetSaveAs не подойдет?
Код
h = Application.GetSaveAsFilename("", "All Files(*.*),*.*", , "сохранение как рисунка jpg")
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#4
30.05.2016 14:52:40
щас посмотрим
Живи и дай жить..
 
 
 
#5
30.05.2016 14:58:38
отлично подошло, спасибо
Живи и дай жить..
 
 
 
Страницы: 1
Наверх