Question

我尝试了以下代码来调整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

但是我想更改Google Chrome的屏幕尺寸。不使用外壳打开新的Chrome应用程序怎么办？我想更改已经打开的Chrome应用程序的屏幕尺寸

Answer 1

您可以使用User32库中的函数来控制外部窗口。这是一个针对Google Chrome浏览器“新标签页”窗口执行此操作的示例：

          <LinearLayout
               android:layout_width="wrap_content"
               android:layout_height="wrap_content"
               android:orientation="horizontal">
               <ImageView
                   android:id="@+id/rate"
                   android:layout_width="30dp"
                   android:layout_height="30dp"
                   android:layout_marginTop="-35dp"
                   android:layout_marginLeft="130dp"
                   android:src="@drawable/star"
                   />
               <ImageView
                   android:id="@+id/rate1"
                   android:layout_width="30dp"
                   android:layout_height="30dp"
                   android:layout_toRightOf="@+id/rate"

                   android:src="@drawable/star"
                   />
               <ImageView
                   android:id="@+id/rate2"
                   android:layout_width="30dp"
                   android:layout_height="30dp"
                   android:layout_toRightOf="@+id/rate1"
                   android:src="@drawable/star"
                   />
               <ImageView
                   android:id="@+id/rate3"
                   android:layout_width="30dp"
                   android:layout_height="30dp"
                   android:layout_toRightOf="@+id/rate2"
                   android:src="@drawable/star"
                   />
           </LinearLayout>

这会将窗口设置为600 x 600像素大小（600,600）的左上角（0,0）

有关SetWindowPos函数的更多信息，请参见https://msdn.microsoft.com/en-us/library/windows/desktop/ms633545%28v=vs.85%29.aspx?f=255&MSPPError=-2147217396

如何使用VBA更改外部应用程序的屏幕尺寸

1 个答案: