在Access中使Excel窗口最大后包含在Access窗口内的延伸问题!
我想达到的结果是最大化 Excel 窗口后包含在 Access 中,但设置后 Excel 窗口只包含左上角的大部分,右侧的滚动条和下边的标签、滚动条等都看不到,什么原因呢?
我想办法截图
[解决办法]
能看到啊,是不是你的显示器的分辨率的问题哦?
例子
Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Sub Command1_Click() Dim lngAccessHwnd As Long Dim lngExcelHwnd As Long Dim lngP As Long lngExcelHwnd = FindWindow(vbNullString, "Microsoft Excel - 推舟速度脉冲频率换算表.xls") lngAccessHwnd = FindWindow(vbNullString, "Microsoft Access") lngP = SetParent(lngExcelHwnd, lngAccessHwnd)End Sub