FileDialog弹窗怎么设置大小

知天易，逆天难

之前没有设置dlgx.Title属性，第一次调整窗口大小后，下次运行大小为最后一次调整的大小。
修改之后，每次弹窗都会恢复系统默认大小，每次都要拉开，不方便查看。请各位帮帮忙看看怎么设置。



Sub 电子发票处理()
    Dim i As Integer, str As String, fol As String, n1 As String, n2 As String
    Sheet7.Activate
    For i = 2 To ActiveSheet.UsedRange.Rows.Count
        If InStr(Cells(i, 3), "电子") Then
            If MsgBox("发票“" & Cells(i, 5) & "”是否有原始发票？", vbOKCancel) = vbOK Then
                Set dlgx = Application.FileDialog(msoFileDialogOpen)                                '创建filedialog对象，这是你要引用的文件
                dlgx.Title = "请选择发票编码：" & Cells(i, 5) & "  发票金额：" & Cells(i, 9)        '指定窗口名称
                dlgx.InitialFileName = "C:\Users\Administrator\Desktop"                             '指定路径，文件名和过滤字符也在此指定，如C:\*.TXT
                If dlgx.Show = -1 Then Cells(i, 1) = dlgx.SelectedItems(1)
             End If
        End If
    Next i
    [a1] = [a1] & Chr(10) & "电子发票已存档"
End Sub

lss001

FileDialog.rar (11.65 KB, 下载次数: 20)

2023-2-23 07:48 上传

点击文件名下载附件

参考以上附件

知天易，逆天难

lss001 发表于 2023-2-23 07:49
参考以上附件

我还是才疏学浅了，好像哪里不对~改完提示无法编译 或者提示  对象属性什么的~~

知天易，逆天难

附件把多余的代码都去掉了，

目前就是前面几个选择发票文件是默认大小，红色框出的发票信息太小了，看不清楚，容易选错。（执行时弹窗，是弹出选择窗口，点否处理下一行）

最后一个发票号是我手工调过窗口大小的，第二次执行程序会默认调整后的大小（发票号一旦变动，就会恢复上图的大小）


需求就是能默认好窗口大小，然后再弹窗。就是不知道在If dlgx.Show = -1 Then 这行之前怎么设置。