Insert ảnh theo thứ tự - duyệt qua shape (1 người xem)

[loinguyen212]

Chào tất cả mọi người,

Em có 4 ảnh trong 1 folder (D:\Anh) có tên: Pic1, Pic2, Pic3, Pic4
Bây giờ em muốn insert 4 ảnh này lên Sheet1.Range("A1") với cùng một kích thước chiều rộng width = 400, cùng căn lề trái theo và lề trên theo ô A1.
Bởi vì 4 hình ảnh đã nằm đè lên nhau nên nó sẽ không visible all, mà sẽ hiện lần lượt từ 1 đến 4 (việc này sẽ được điều khiển bằng 2 nút shape (1 shape có hình mũi tên sang trái, 1 có hình sang phải). Và hình xuất hiện đầu tiên sẽ là hình 1, chọn shape sang phải thì sẽ qua hình 2.... cứ như thế cho đến hết và xem ngược lại bằng nút shape sang trái. Rất mong nhận được giúp đỡ.

Em cảm ơn!

 

[befaint]

Chào tất cả mọi người,

Em có 4 ảnh trong 1 folder (D:\Anh) có tên: Pic1, Pic2, Pic3, Pic4
Bây giờ em muốn insert 4 ảnh này lên Sheet1.Range("A1") với cùng một kích thước chiều rộng width = 400, cùng căn lề trái theo và lề trên theo ô A1.
Bởi vì 4 hình ảnh đã nằm đè lên nhau nên nó sẽ không visible all, mà sẽ hiện lần lượt từ 1 đến 4 (việc này sẽ được điều khiển bằng 2 nút shape (1 shape có hình mũi tên sang trái, 1 có hình sang phải). Và hình xuất hiện đầu tiên sẽ là hình 1, chọn shape sang phải thì sẽ qua hình 2.... cứ như thế cho đến hết và xem ngược lại bằng nút shape sang trái. Rất mong nhận được giúp đỡ.

Em cảm ơn!

Mời xem file đính kèm.

Chỗ màu đỏ chưa có làm bởi vì nếu kích thước của các ảnh có tỉ lệ dài/rộng khác nhau thì sao?

 

[loinguyen212]

Tuyệt vời. Cảm ơn befaint rất nhiều.
Còn chỗ màu đỏ thì dù ảnh thực có khác nhau thì vẫn cứ đưa nó về kích thước đó )

 

[befaint]

Tuyệt vời. Cảm ơn befaint rất nhiều.
Còn chỗ màu đỏ thì dù ảnh thực có khác nhau thì vẫn cứ đưa nó về kích thước đó )

í đang hỏi: Chiều cao khi đó (khi chiều rộng =400) sẽ tính như nào? Tự động dãn theo tỉ lệ dài/rộng hay là một giá trị nào đó? Hỉu hông ta?

p/s: Chắc phải diễn giải cụ tỉ: Giả sử sau khi điều chỉnh các ảnh có width=400 và lock ratio thì pic1 có height1=500, pic2 có height2=600 HAY LÀ không lock ratio để height1=height2 ?

 

[loinguyen212]

í đang hỏi: Chiều cao khi đó (khi chiều rộng =400) sẽ tính như nào? Tự động dãn theo tỉ lệ dài/rộng hay là một giá trị nào đó? Hỉu hông ta?

p/s: Chắc phải diễn giải cụ tỉ: Giả sử sau khi điều chỉnh các ảnh có width=400 và lock ratio thì pic1 có height1=500, pic2 có height2=600 HAY LÀ không lock ratio để height1=height2 ?

Chiều cao sẽ tự dãn để không bị ảnh hưởng về hình ảnh lẫn chữ ở trên pic. Chúng ta sử dụng ".LockAspectRatio = msoTrue" rồi để mặc nó, thích biến đổi chiều cao thế nào thì biến đổi.

Hôm qua có 4 cái pic, khi thử xóa đi 1 pic4, nó vẫn xử lý tốt. Duy có một điều là khi click sang phải, đến hết pic3 thì báo lỗi. Sau một hồi tìm hiểu thì hóa ra sau khi xóa pic4 đi rồi thì NumPic = fso.GetFolder(FolderPath).Files.Count vẫn bằng 4. Kể cả đưa NumPic = 0 trước đó thì Nguyễn Y Vân. Befaint giải thích giúp điều này và chỉ giúp cách gỡ. Thân mến!

 

[befaint]

Chiều cao sẽ tự dãn để không bị ảnh hưởng về hình ảnh lẫn chữ ở trên pic. Chúng ta sử dụng ".LockAspectRatio = msoTrue" rồi để mặc nó, thích biến đổi chiều cao thế nào thì biến đổi.

Hôm qua có 4 cái pic, khi thử xóa đi 1 pic4, nó vẫn xử lý tốt. Duy có một điều là khi click sang phải, đến hết pic3 thì báo lỗi. Sau một hồi tìm hiểu thì hóa ra sau khi xóa pic4 đi rồi thì NumPic = fso.GetFolder(FolderPath).Files.Count vẫn bằng 4. Kể cả đưa NumPic = 0 trước đó thì Nguyễn Y Vân. Befaint giải thích giúp điều này và chỉ giúp cách gỡ. Thân mến!

ủa. mình chỉ xài Pictures.Insert chứ có xài cái chỗ màu đỏ đâu mà hỏi mình...

 

[loinguyen212]

ủa. mình chỉ xài Pictures.Insert chứ có xài cái chỗ màu đỏ đâu mà hỏi mình...

à, bởi vì phải cải tiến thêm để nó tự tính số file ảnh chứ không mặc định là 4 như trên nữa.
Nói thêm về file in folder: Lạ một điều là khi tạo một folder mới, khi kiểm tra properties của nó thì thấy số file là 0 (đấy là folder mới nhé), nhưng cứ copy ảnh, file các kiểu vào thì kiểm tra lại properties lại không còn đúng nữa (nó luôn luôn nhiều hơn số file còn trong folder, mình đoán là file rác).
Vậy nên phải nghĩ cách chỉ count file ảnh thôi, đã count được rồi, nhưng cũng cảm ơn befaint, trả lời nhanh quá, có cách nào báo khi có bài mới hay sao mà trả lời nhanh dữ