Bới tóc cho cô dâu tóc ngắn [ TRANG SUN ACADEMY ]

Previous article

VLCM [ KHỰA] : Cách Lên Long Lân Truyền Thuyết Nhanh & Lên Vé Vàng Siêu Tốc

Next article

You may also like

25 Comments

  1. 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.

  2. 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 !

  3. Chào bạn, bài viết rất hay, bạn không phiền cho mình xin phần mềm qua email: nguyenhaidongloi@gmail.com.
    Cám ơn bạn

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

  5. A ơi cho em password với anh ơi

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

  7. ủa vậy sao làm đc cái nút đó

  8. 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

  9. Làm clip có tâm đi.

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

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

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

  13. hay lắm cám ơn anh

  14. Cảm ơn anh rất nhiều ạ

  15. 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

  16. 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à .

  17. 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

  18. Anh ơi password của file là gì ạ ?

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

  20. QuÀ dinh c¶m on anh

  21. ông bày mà copy đc đâu ???????

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

  23. 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?

  24. ko có code sao

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

Leave a reply

Your email address will not be published. Required fields are marked *

More in Công Nghệ