Hướng dẫn chèn ảnh gọn vào trong 1 ô Excel

File dùng code VBA để thực hiện.

[ketoandoanhnghiep]

Bạn ơi. Hay quá mình xin link copy với bạn

[ngocthanhtat]

Chào bạn, mình không biết phải download file bạn nói trong video ở đâu nhỉ?

[vittocaren]

Xin lỗi mọi người, mình thích vọc vòi, ngày xưa thừa thời gian ngồi tự viết để làm báo cáo cho nhanh. Giờ làm nghề khác quên hết rồi . Nếu có password thì mình hay để là "bimat" . Mọi người cứ thử, vui vẻ giúp đc ai thì giúp thôi mà .

[vittocaren]

CODE VBA : (Nguồn tham khảo internet + biến tấu)

Public Sub FitPic()
On Error GoTo NOT_SHAPE ' thong bao loi
Dim PicWtoHRatio As Single ' bien ti le anh
Dim CellWtoHRatio As Single ' bien ti le o excel

With Selection
PicWtoHRatio = .Width / .Height ' tinh ti le rong/cao cua buc anh lua chon
End With

With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight ' tinh tile rong/cao cua o excel chua anh
End With

Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1 ' Neu tile anh > ti le o excel
With Selection
.Width = .TopLeftCell.Width * 0.95 ' chieu rong anh =0.95 lan chieu rong o excel
.Height = .Width / PicWtoHRatio ' chieu cao anh co lai theo ti le anh ban dau
End With

Case Else ' Neu ti le anh < ti le o excel
With Selection
.Height = .TopLeftCell.RowHeight * 0.95 ' chieu cao anh =0.95 lan chieu rong o excel
.Width = .Height * PicWtoHRatio ' chieu rong anh co lai theo ti le anh ban dau
End With
End Select

With Selection 'dat vi tri anh sao cho nhin thay dong ke excel
.Top = .TopLeftCell.Top + 0.025 * .Height
.Left = .TopLeftCell.Left + 0.025 * .Width
End With
Exit Sub

NOT_SHAPE:
MsgBox "Select a picture before running this macro." 'Bao loi khi chua chon anh
End Sub

[thanhquangphan]

HAY QUÁ, CÁM ƠN BẠN MÌNH ĐANG CẦN CÁI NÀY ĐỂ LÀM BÁO CÁO NHANH HƠN HẴN

[quannguyenthanh]

ban cho phép tải file nay nhưng tôi thực hiện ko được

[ThinhTran-fyof]

Mọi người ơi, download như thế nào vậy nhỉ?

[LL-gnoe]

code này coppy mà không dán được qua sheet khác vậy bạn

[phanthuc]

Cho minh hoi : co ai dang su dung huong dan minh duoc khong a? Vi minh can chen hon 3000 tam anh. Xin cam on a !

[phanthuc]

Minh co copy duoc ma su dung khong duoc. Xin tac gia huong dan a. Xin cam on ! Xin hoi so dt cua tac gia de lien he a.

[quangtran-hpit]

anh sao em copy không được cái tệp đó qua sheet em cần làm ạ

[anhducneo]

video thì hay mà ko copy được file bạn ạ

[vanvynguyen]

Lừa người kinh à, tải xong có thấy nút gì đâu

[inho]

Anh ơi hướng dẫn em với anh ơi em copy không đc ạ

[thuchoangvan]

Bạn có thể gửi cho mình phần mềm đó dc ko bn mình cảm on bn nhiêu

[hanhpham]

chém gió bày đạt viết code, copy linh tinh rồi nhận là của mình

[nguyenthehung]

ông này chắc tính kiếm tí lên ko chia sẻ code

[xanhlathanh]

cho tải file, mà lại đi khóa sheet, ko cho copy thì làm sao mà sử dụng đây bạn?

[nguyenvietdung]

Cảm ơn bạn nhiều nhé, quá tuyệt vời. Mình làm công việc copy hình ảnh rất nhiều, tốn nhiều công sức nhất vào cái công đoạn điều chỉnh tấm hình cho vừa