代码之家 › 专栏 › 技术社区 › Varadharajan

如何使用VBA更改外部应用程序的屏幕大小

screen-size google-chrome excel-vba vba excel

0

Varadharajan · 技术社区 · 7 年前

我尝试了下面的代码来调整Excel的屏幕大小

Sub win()
Dim myWindow1 As Window, myWindow2 As Window
Set myWindow1 = ActiveWindow
Set myWindow2 = myWindow1.NewWindow
With myWindow1
    .WindowState = xlNormal
    .Top = 0
    .Left = 0
    .Height = Application.UsableHeight
    .Width = Application.UsableWidth * 0.25
End With
With myWindow2
    .WindowState = xlNormal
    .Top = 0
    .Left = (Application.UsableWidth * 0.25) + 1
    .Height = Application.UsableHeight
    .Width = Application.UsableWidth * 0.75
End With
End Sub

但我想改变谷歌Chrome的屏幕尺寸。如果不使用shell打开新的chrome应用程序,我该怎么办? 我想更改已经打开的Chrome应用程序的屏幕大小

1 回复 | 直到 7 年前

1

Prebsus 7 年前

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Sub Resize_Chrome()
Dim ChromeHandle As Long
ChromeHandle = FindWindow(vbNullString, "New Tab - Google Chrome")
SetWindowPos ChromeHandle, -1, 0, 0, 600, 600, &H10
End Sub

https://msdn.microsoft.com/en-us/library/windows/desktop/ms633545%28v=vs.85%29.aspx?f=255&MSPPError=-2147217396

推荐文章

joshuatvernon imotov · 如何使用appJar获得屏幕宽度和高度?

7 年前

Jambla · 在Android中获取屏幕宽度和高度

8 年前

dsdsdsdsd · AndroidStudio:为什么会忽略其他屏幕大小的布局?

9 年前

Daniel Jose Padilla Peña · 我如何为android多屏设计最准确的Galaxy Nexus(720x1280)和Nexus 4(768x2280)?

9 年前

jstock · Galaxy Note 5:密度自动降低

9 年前

DonHP · 动态网站宽度[已关闭]

11 年前