Cara menggunakan zoom di vba (dengan contoh)

Anda dapat menggunakan metode berikut untuk menentukan zoom di Excel menggunakan VBA:

Metode 1: Atur zoom ke jumlah tertentu

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

Makro khusus ini akan mengatur zoom menjadi 150% untuk lembar yang sedang aktif.

Metode 2: Atur zoom ke rentang yang dipilih saat ini

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

Makro khusus ini akan memperbesar rentang yang dipilih saat ini.

Metode 3: Atur Zoom ke Rentang Tertentu

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

Makro khusus ini akan memperbesar rentang C1:E5 .

Contoh berikut memperlihatkan cara menggunakan masing-masing metode dalam praktik dengan lembar Excel berikut yang berisi kumpulan data berbagai pemain bola basket:

Contoh 1: Atur zoom ke jumlah tertentu

Kita dapat menggunakan makro berikut untuk mengatur zoom lembar yang sedang aktif menjadi 150% :

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

Saat kita menjalankan makro ini, lembar secara otomatis akan diperbesar 150% :

Perhatikan bahwa zoom default adalah 100 .

Dengan menyetel zoom ke nilai lebih besar dari 100, kami memperbesar.

Untuk memperkecil, atur zoom ke nilai kurang dari 100.

Contoh 2: Atur zoom ke rentang yang dipilih saat ini

Kita dapat menggunakan makro berikut untuk mengatur zoom lembar yang sedang aktif ke rentang yang dipilih saat ini:

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

Misalnya, kita memilih rentang A7:C11 .

Saat kita menjalankan makro ini, lembar akan secara otomatis diperbesar ke kisaran ini:

Contoh 3: Atur zoom ke rentang tertentu

Kita dapat menggunakan makro berikut untuk mengatur zoom lembar yang sedang aktif ke kisaran C1:E5 :

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

Saat kita menjalankan makro ini, lembar akan secara otomatis diperbesar ke kisaran ini:

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Cara menghitung jumlah baris dalam suatu rentang menggunakan VBA
Cara menavigasi spreadsheet menggunakan VBA
Cara menampilkan semua baris menggunakan VBA