Chia sẻ file tạo trắc nghiệm với PowerPoint

Liên hệ QC
Thứ nhất là lệnh.
Mã:
Set ppt_shp = .Shapes("Choice_" & Answer)
dùng để gán ppt_shp bằng một cái Shape tên ("Choice_" & Answer), thì cái tên này phải có trong file PowerPoint, của bạn bị lỗi tôi đoán là do trong file PowerPoint chưa có đối tượng này. Còn lệnh
Mã:
Set ppt_shp = .Shapes("Choice_C")
nó không báo lỗi là vì đối tượng shape tên "Choice_C" đã có trên Slide.
Thứ hai: Chương trình chạy đúng theo mình hay không là do mình lập trình chứ sau lại bảo là nó chạy sai, ví dụ cái đối tượng "Choice_C" trên Slide là vậy nhưng khi lập trình tôi muốn cho nó là đáp A, B hay D đêu được (Cái này do mình lập trình mà, đáp án A, B, C, D thì mình đổi vô tư), chẳng hạn trên file Word đáp án A, nhưng khi chạy Code tôi cho nó qua C là bình thường. Trên file PowerPoint mẫu tôi cũng cho nó trộn đáp án mà.
Thứ ba: Muốn giúp thì tui cần có file thực tế chứ không phải đưa dữ liệu vậy rồi kêu tôi phải tự sắp xếp cho phù hợp thì tui sẽ không giúp. Bạn muốn giúp thì bạn phải sắp xếp file dữ liệu và file cần xuất ra tươm tất, code đã áp dụng chưa được có sẳn trong file, nêu lý do áp dụng chưa được, nói rõ đã áp dụng nhưng chỏ nào chưa phù hợp, chổ nào ra kết quả chưa đúng, vậy ra đúng phải như thế nào? Mô tả càng chi tiết càng tốt.
cảm ơn sự tận tình của mod nhé. Cái code ở trong file .dotm rồi mà. cái ppt thì quên nên tôi bổ sung sau đó ấy.
Tôi nhờ người chỉnh giúp rồi: Cái giá trị của biến answer hình như bị kèm thêm kí tự đặc biệt kiểu xuống dòng ấy. Bỏ nó đi là được
 
Web KT
Back
Top Bottom