PICTURES.INSERT() trong excel2007

[Cuongloan]

Hi các Bác! Em có một vướng mắc như sau:
Em viết một chương trình chèn 46 cái ảnh vào một file excell.Với mọi tác động bất kì vào Sheet2!N4 (các bác nhớ điền số 2 vào ô này nhá) thì 46 bức ảnh sẽ tự động chèn vào excell. khi chạy trên excel2003 thì rất ngon. Nhưng chuyển sang 2007 thì các bức ảnh bị lệch, không nằm trong ô như mong đợi.
Em gửi link các Bác giúp em khắc phục với.
http://www.mediafire.com/?1z8vq1ei3p6v9bb

 

[Ếch Xanh]

Hi các Bác! Em có một vướng mắc như sau:
Em viết một chương trình chèn 46 cái ảnh vào một file excell.Với mọi tác động bất kì vào Sheet2!N4 (các bác nhớ điền số 2 vào ô này nhá) thì 46 bức ảnh sẽ tự động chèn vào excell. khi chạy trên excel2003 thì rất ngon. Nhưng chuyển sang 2007 thì các bức ảnh bị lệch, không nằm trong ô như mong đợi.
Em gửi link các Bác giúp em khắc phục với.
http://www.mediafire.com/?1z8vq1ei3p6v9bb

Bạn thử tham khảo tại đây xem, có vấn đề gì không?

http://www.giaiphapexcel.com/forum/...-lý-nhân-viên-có-hình-ảnh&p=264001#post264001

 

[ndu96081631]

Hi các Bác! Em có một vướng mắc như sau:
Em viết một chương trình chèn 46 cái ảnh vào một file excell.Với mọi tác động bất kì vào Sheet2!N4 (các bác nhớ điền số 2 vào ô này nhá) thì 46 bức ảnh sẽ tự động chèn vào excell. khi chạy trên excel2003 thì rất ngon. Nhưng chuyển sang 2007 thì các bức ảnh bị lệch, không nằm trong ô như mong đợi.
Em gửi link các Bác giúp em khắc phục với.
http://www.mediafire.com/?1z8vq1ei3p6v9bb

Chủ đề này bạn đã hỏi tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?36832-Pictures.insert()-bị-lỗi-trong-Excel-2007
Sao giờ còn hỏi nữa nhỉ

 

[Cuongloan]

Bạn thử tham khảo tại đây xem, có vấn đề gì không?

http://www.giaiphapexcel.com/forum/...-lý-nhân-viên-có-hình-ảnh&p=264001#post264001

Cảm ơn bác. Nhưng em tìm hiểu cách của bác thì không áp dụng được vào file của em. Vấn đề của em là " các bức ảnh bị lệch, không nằm trong ô như mong đợi".
Mong các bác chỉ giáo zùm cho!

 

[Cuongloan]

Chủ đề này bạn đã hỏi tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?36832-Pictures.insert()-bị-lỗi-trong-Excel-2007
Sao giờ còn hỏi nữa nhỉ

Bác ơi trước kia file của em chỉ có vài bức. Làm theo của bác thì ok. Nhưng khi số lượng bức ảnh nhiều lên. Mỗi bức lệch đi 1 ít. Các bức về sau lệch rất nhiều. Em tìm mãi mà chẳng biết tại sao? và khắc phục như thế nào?

 

[Ếch Xanh]

Bác ơi trước kia file của em chỉ có vài bức. Làm theo của bác thì ok. Nhưng khi số lượng bức ảnh nhiều lên. Mỗi bức lệch đi 1 ít. Các bức về sau lệch rất nhiều. Em tìm mãi mà chẳng biết tại sao? và khắc phục như thế nào?

Bạn nên Resize tất cả hình ảnh bằng kích cở thì chẳng bao giờ thừa ra thụt vào cả!
Thân.

 

[Cuongloan]

Bạn nên Resize tất cả hình ảnh bằng kích cở thì chẳng bao giờ thừa ra thụt vào cả!
Thân.

Không muốn resize thì có cách nào không bác?

 

[Ếch Xanh]

Không muốn resize thì có cách nào không bác?

Bạn search google cách insert picture bằng Shape, bằng Image, bằng comments, ngoại trừ bằng Shape ra sẽ không còn hiện tượng lệch hình nữa đâu. Bạn thử đi'

 

[ndu96081631]

Bác ơi trước kia file của em chỉ có vài bức. Làm theo của bác thì ok. Nhưng khi số lượng bức ảnh nhiều lên. Mỗi bức lệch đi 1 ít. Các bức về sau lệch rất nhiều. Em tìm mãi mà chẳng biết tại sao? và khắc phục như thế nào?

Bạn mô tả nghe lạ quá... vì tôi thao tác trên Excel 2003 và 2007 đều không bị như bạn nói... Có chăng là trên Excel 2007 phải thêm thằng LockAspectRatio = False vào nữa thôi
Nếu vẫn không làm được, bạn vui lòng post file đang lỗi lên đây (có cả hình nhé) ----> Nếu dung lượng lớn, quăng lên Mediafire

 

[Ếch Xanh]

Bạn mô tả nghe lạ quá... vì tôi thao tác trên Excel 2003 và 2007 đều không bị như bạn nói... Có chăng là trên Excel 2007 phải thêm thằng LockAspectRatio = False vào nữa thôi
Nếu vẫn không làm được, bạn vui lòng post file đang lỗi lên đây (có cả hình nhé) ----> Nếu dung lượng lớn, quăng lên Mediafire

Cái vụ này hình như làm với SHAPE chứ không dùng cho PICTURE được THẦY ơi, cấu trúc như thế này:

ActiveSheet.Shapes.AddShape(msoShape, Left, Top, Width, Height).LockAspectRatio = msoFalse

Thử với cái này (trong Excel Help):

Set myDocument = Worksheets(1)
myDocument.Shapes.AddShape(msoShapeCube, _
    50, 50, 100, 200).LockAspectRatio = msoTrue

 

[ndu96081631]

Cái vụ này hình như làm với SHAPE chứ không dùng cho PICTURE được THẦY ơi, cấu trúc như thế này:

ActiveSheet.Shapes.AddShape(msoShape, Left, Top, Width, Height).LockAspectRatio = msoFalse

Thử với cái này (trong Excel Help):

Set myDocument = Worksheets(1)
myDocument.Shapes.AddShape(msoShapeCube, _
    50, 50, 100, 200).LockAspectRatio = msoTrue

Thì Picture cũng có thể coi là Shape được mà
Sang bài này:
http://www.giaiphapexcel.com/forum/showthread.php?36832-Pictures.insert%28%29-b%E1%BB%8B-l%E1%BB%97i-trong-Excel-2007&p=245307#post245307
Tôi đang dùng LockAspectRatio = False với Picture đấy thôi
Tùy biến nằm ở chổ này:

ActiveSheet.Pictures.Insert("Đường dẩn").Name = PicName
With ActiveSheet.Shapes(PicName)
  .LockAspectRatio = False
End with

 

[Cuongloan]

Bạn mô tả nghe lạ quá... vì tôi thao tác trên Excel 2003 và 2007 đều không bị như bạn nói... Có chăng là trên Excel 2007 phải thêm thằng LockAspectRatio = False vào nữa thôi
Nếu vẫn không làm được, bạn vui lòng post file đang lỗi lên đây (có cả hình nhé) ----> Nếu dung lượng lớn, quăng lên Mediafire

hoặc link:http://www.giaiphapexcel.com/forum/s...001#post264001

Giúp mình với nhá!

 

[Cuongloan]

Cái vụ này hình như làm với SHAPE chứ không dùng cho PICTURE được THẦY ơi, cấu trúc như thế này:

ActiveSheet.Shapes.AddShape(msoShape, Left, Top, Width, Height).LockAspectRatio = msoFalse

Thử với cái này (trong Excel Help):

Set myDocument = Worksheets(1)
myDocument.Shapes.AddShape(msoShapeCube, _
50, 50, 100, 200).LockAspectRatio = msoTrue

bác ơi nếu dùng Shapes thì làm thế nào đưa các biến đường dẫn, tên ảnh vào được? Chỉ cho em với.

 

[Cuongloan]

Vẫn chưa khắc phục được trôi hình

Mặc dù đã hỏi trên diễn, nhưng em vẫn chưa tìm ra cách khắc phục cái vụ trôi hình này.
C ác bác vào link này http://www.giaiphapexcel.com/forum/showthread.php?40204-PICTURES.INSERT()-trong-excel2007 tìm cách khắc phục cho em với