Nút cuộn tròn của chuột đi quá nhiều dòng....!

[ptdk]

Xin chào mọi người.!
Hiện tại Em đang gặp vấn đề là làm báo cáo bằng file excel có chèn nhiều hình ảnh theo chiều dọc.và chú thích bên cạnh từng hình.
Vấn đề mỗi hình cũng phải để kích thước khá to để xem cho rõ,mà như vậy thì kích thước của mỗi dòng cũng phải kéo to ra.
Khi làm như vậy thì khi xem file dùng nút cuộn giữa cứ bị trượt qua nhiều dòng,không cuộn vào dòng Mình muốn xem được.
Em muốn cho khi cuộn nút tròn ở chuột thì trang excel di chuyển chậm lại.Xin Bạn nào biết chỉ giúp.cảm ơn...!
Ngoài cách "merge & center" nhiều dòng nhỏ cho thành 1 dòng lớn có cách nào khác không ạ.Do form mẫu thì chỉ 1 ô lớn,nên thay đổi cứ insert rất tốn công,vì làm nhiều mà.
Em có gửi 1 file làm ví dụ,như trong file này Em muốn lăn phím cuộn ở chuột để xem tấm hính hoa phong lan,Thì không được do khi lăn là bị cuộn qua mất.

 

[qtm1987]

Bạn ấn chặt nút cuộn rồi rê tứ phía tùy theo tốc độ bạn muốn là được mà. Ko thì dùng bàn phím lên xuống cho tiện đi, chuột làm gì cho mệt

 

[ptdk]

Cảm ơn Bạn qtm1987..!.ahe Mình cũng ở gần ĐàLạt . GIờ mới biết thao tác ấn giữ con lăn.Chắc chỉ có cách này thôi.Ông xếp cứ lăn lăn không đọc được phàn nàn.

 

[befaint]

Ấn phím page up/ down ấy.

Ấn chuột bay mà phẩy tay một cái là không biết ở phương trời nào.

 

[ptm0412]

Mặc định lăn chuột là cuộn 3 dòng, sửa lại là 1

 

[batman1]

như vậy thì kích thước của mỗi dòng cũng phải kéo to ra.
Ngoài cách "merge & center" nhiều dòng nhỏ cho thành 1 dòng lớn có cách nào khác không ạ.

Không chơi kiểu kéo dòng cao gần nửa chiều cao màn hình. Không chơi gộp ô.

Vấn đề ở cách nhập ảnh. Trong tập tin mỗi ảnh được nhập sao cho chiếm 16 dòng và 6 cột B:G:
- ảnh 1 vào B5:G20
- ảnh 2 vào B21:G36
- ảnh 3 vào B37:G52

Thao tác: giải nén tập tin -> mở tập tin Excel -> nhấn nút để nhập ảnh. Đó chỉ là ví dụ. Có thể mở cửa sổ đối thoại để chọn ảnh cần nhập. Quan trọng là code nhập ảnh InsertPicture.

Nhập xong thì thử dùng nút cuộn giữa nhé.

Sub test()
    InsertPicture ThisWorkbook.Path & "\image\pic1.jpg", Sheet1.range("B5:G20"), False, True, False
    InsertPicture ThisWorkbook.Path & "\image\pic2.jpg", Sheet1.range("B21:G36"), False, True, False
    InsertPicture ThisWorkbook.Path & "\image\pic2.jpg", Sheet1.range("B37:G52"), False, True, False
End Sub

Code trên nhập ảnh CENTER trong 3 vùng. Nếu muốn nhập vừa KHÍT trong 3 vùng thì như sau

Sub test()
    InsertPicture ThisWorkbook.Path & "\image\pic1.jpg", Sheet1.range("B5:G20"), False, False, False
    InsertPicture ThisWorkbook.Path & "\image\pic2.jpg", Sheet1.range("B21:G36"), False, False, False
    InsertPicture ThisWorkbook.Path & "\image\pic3.jpg", Sheet1.range("B37:G52"), False, False, False
End Sub

 

[ptdk]

Cảm ơn,câu trả lời từ mọi người....!