| ビューの移動 |
ActiveWindow.ScrollRow = Lw - 20
Range("A" & Lw).Select |
| 表示を拡大 |
Dim window1 As Window
Windows("VBAsample.xls").Activate
Set window1 = ActiveWindow
ActiveWindow.Zoom = 200
MsgBox "200%に設定しました"
|
| 表示を標準に戻す |
Dim window1 As Window
Windows("VBAsample.xls").Activate
Set window1 = ActiveWindow
Range("B2:E6").Select
ActiveWindow.Zoom = True
MsgBox "選択範囲を基準に拡大表示しました" |
| フォントのサイズ変更 |
Range("A1").Font.Size = 14
|
| セルの枠線非表示 |
ActiveWindow.DisplayGridlines = False
|
| 改ページ挿入 |
Range("A" & PageStartRow).PageBreak = xlManual |
| ウインドウ位置を指定する |
With ActiveWindow
.WindowState = xlNormal
.Top = 10
.Left = 20
End With
WindowStateプロパティにxlNormalを指定して最大化または最小化の状態を解除しています。
|
| ウインドウサイズを指定する |
With ActiveWindow
.WindowState = xlNormal
.Height = 150
.Width = 300
End With
WindowStateプロパティにxlNormalを指定して最大化または最小化の状態を解除しています。
|
| ウインドウを最小化、最大化する |
WindowStateプロパティにxlMaximizedまたはxlMinimizedを指定します。 |
| ウインドウサイズを取得する |
Windows("Book1.xlsm").Activate
With ActiveWindow
.WindowState = xlNormal
.Top = 0
.Left = 0
.Height = Application.UsableHeight / 2
.Width = Application.UsableWidth
End With
|
| ウインドウサイズを固定する |
With ActiveWindow
.WindowState = xlNormal
.EnableResize = False
End With
|
| Excelのウインドウサイズを設定する。 |
Application.Height = 400
Application.Width = 500
Application.Top = 10
Application.Left = 10
|
| Excelのウインドウサイズを設定可能にする。 |
Application.WindowState = xlNormal
|
| カーソル位置の検出 |
Dim RowCnt, ColCnt, StartRow, StartColumn As Integer
Dim Max_Row, Max_Column As Integer
Dim LoopArea As Range
Dim SelectArea As String
SelectArea = Selection.Address
RowCnt = Selection.Row
ColCnt = Selection.Column
Set LoopArea = Selection
StartRow = LoopArea.Cells(1).Row
StartColumn = LoopArea.Cells(1).Column
Max_Row = LoopArea.Cells(LoopArea.Count).Row
Max_Column = LoopArea.Cells(LoopArea.Count).Column
|
