Mục lục
ActiveWindow.WindowState
Có ba khác nhau WindowSates mà một trang tính có thể có; Thu nhỏ, Tối đa và Bình thường. Bạn có thể đặt trạng thái cửa sổ bằng một trong những dòng mã sau:
| 123456 | ActiveWindow.WindowState = xlMinimizedActiveWindow.WindowState = xlMaximizedActiveWindow.WindowState = xlNormal |
Và tất nhiên, một khi bạn có thể lập trình một yếu tố hình ảnh, bạn có thể ném vào một vòng lặp và tạo ra một “hiệu ứng động”. Sau đây sẽ là một hiệu ứng thú vị có thể xảy ra khi hiện một trang tính.
Macro này sẽ dần dần thay đổi kích thước trang tính từ nhỏ thành Tối đa hóa, làm cho trang tính có vẻ đang phát triển:
| 12345678910111213141516171819202122232425262728293031323334353637383940414243 | Sub SheetGrow ()Dim x As IntegerVới ActiveWindow.WindowState = xlNormal.Top = 1.Left = 1.Height = 50.Width = 50Đối với x = 50 Đối với Ứng dụng..Height = xTiếp theo xĐối với x = 50 Đối với ứng dụng..Rộng = xTiếp theo x.WindowState = xlMaximizedKết thúc vớiKết thúc Sub |
