Insert nhiều ảnh vào Table trong Powpoint sử dụng VBA

ngocmit2507 · 14/2/22

batman1 đã viết:
1. Code trong tập tin.

2. Do tập tin có nhiều slide nên mấu chốt là phải xác định code sẽ thao tác cho slide nào. Hiện thời slide cần thao tác là slide đứng thứ 5, và cũng là slide cuối cùng. Do bạn không nói rõ là tương lai có thêm slide nữa không nên để chắc chắn tôi không dùng con số 5, cũng không dùng vị trí CUỐI CÙNG. Trước khi chạy code thì phải cuộn xuống tới khi nhìn thấy slide cần thao tác ở bên phải, còn ở bên trái thì slide đó được viền khung.

3. Nếu xác định theo thứ tự (vd. 5) hay vị trí (cuối cùng) tiện hơn cho bạn với dự định tương lai thì nói rõ slide luôn ở vị trí nào (5 hay cuối cùng). Lúc đó tôi sẽ sửa code.

4. Hiện thời luôn luôn phải giữ ảnh trên đĩa, mang tập tin sang máy khác thì phải mang các thư mục ảnh theo. Nếu muốn sau khi chèn ảnh thì xóa ảnh trên đĩa và khi sang máy khác không phải mang các thư mục ảnh theo thì sửa

Mã:

shps.AddPicture filename, msoTrue, msoFalse, temp.left, temp.top, temp.Width, temp.Height

thành

Mã:

shps.AddPicture filename, msoFalse, msoTrue, temp.left, temp.top, temp.Width, temp.Height [QUOTE="batman1, post: 1060566, member: 964659"] 1. Code trong tập tin. 2. Do tập tin có nhiều slide nên mấu chốt là phải xác định code sẽ thao tác cho slide nào. Hiện thời slide cần thao tác là slide đứng thứ 5, và cũng là slide cuối cùng. Do bạn không nói rõ là tương lai có thêm slide nữa không nên để chắc chắn tôi không dùng con số 5, cũng không dùng vị trí CUỐI CÙNG. Trước khi chạy code thì phải cuộn xuống tới khi nhìn thấy slide cần thao tác ở bên phải, còn ở bên trái thì slide đó được viền khung. 3. Nếu xác định theo thứ tự (vd. 5) hay vị trí (cuối cùng) tiện hơn cho bạn với dự định tương lai thì nói rõ slide luôn ở vị trí nào (5 hay cuối cùng). Lúc đó tôi sẽ sửa code. 4. Hiện thời luôn luôn phải giữ ảnh trên đĩa, mang tập tin sang máy khác thì phải mang các thư mục ảnh theo. Nếu muốn sau khi chèn ảnh thì xóa ảnh trên đĩa và khi sang máy khác không phải mang các thư mục ảnh theo thì sửa [code] shps.AddPicture filename, msoTrue, msoFalse, temp.left, temp.top, temp.Width, temp.Height

thành

Mã:

shps.AddPicture filename, msoFalse, msoTrue, temp.left, temp.top, temp.Width, temp.Height

[/QUOTE]
Dạ thưa thầy Code em sử dụng ở Slide cuối luôn ạ.Các bài giảng em cũng cố định bài tập hình ảnh ở Slide cuối ạ.Xin thầy sửa code giúp em với ạ1

batman1 · 14/2/22

ngocmit2507 đã viết:
Dạ thưa thầy Code em sử dụng ở Slide cuối luôn ạ.Các bài giảng em cũng cố định bài tập hình ảnh ở Slide cuối ạ.Xin thầy sửa code giúp em với ạ1

Nếu luôn luôn là slide cuối cùng thì trong code bài #20 sửa dòng code đầu tiên

Mã:

Set shps = ActivePresentation.Windows(1).Selection.SlideRange.Shapes

thành

Mã:

Set shps = ActivePresentation.Slides(ActivePresentation.Slides.count).Shapes

ngocmit2507 · 15/2/22

batman1 đã viết:
Nếu luôn luôn là slide cuối cùng thì trong code bài #20 sửa dòng code đầu tiên

Mã:

Set shps = ActivePresentation.Windows(1).Selection.SlideRange.Shapes

thành

Mã:

Set shps = ActivePresentation.Slides(ActivePresentation.Slides.count).Shapes

Em cảm ơn Thầy ạ.

Insert nhiều ảnh vào Table trong Powpoint sử dụng VBA

ngocmit2507

Thành viên mới

batman1

Thành viên gạo cội

ngocmit2507

Thành viên mới

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian