[Tặng] Hàm chèn ảnh và ảnh zoom khi click vào.

[Hoàng Trọng Nghĩa]

Như tôi đã nói, Excel 365 có hàm IMAGE có thể lấy ảnh từ trên mạng nhưng không lấy được ảnh từ trong máy của chúng ta. Từ đó tôi viết một hàm chèn hình ảnh vừa khít trong một cell và nếu muốn rõ hơn ta click vào ảnh đó nó tự zoom ra một kích thước vừa phải để xem, khi muốn nhỏ lại chỉ cần click nó lần nữa hoặc click vào ảnh khác nó cũng tự thu nhỏ lại để ảnh vừa click lớn lên.

Đây là source code mà tôi đã thực hiện:

Function ImageFit(ByVal strPicturePath As String, ByVal strTurnOn As String, Optional ByVal rngTarget As Range, _
         Optional ByVal sglWidth As Single) As String
    On Error Resume Next
    If sglWidth = 0 Then sglWidth = 322
    pubSglWidth = sglWidth
    If rngTarget Is Nothing Then Set rngTarget = Application.ThisCell
    Dim shActiveSheet As Worksheet
    Set shActiveSheet = rngTarget.Worksheet
    If strTurnOn = "" Then
        shActiveSheet.Shapes.Range(rngTarget.Address).Delete
    Else
      shActiveSheet.Shapes(rngTarget.Address).Delete
      If CreateObject("Scripting.FileSystemObject").fileExists(strPicturePath) Then
          With shActiveSheet.Pictures.Insert(strPicturePath)
              .Name = rngTarget.Address
              .ShapeRange.LockAspectRatio = msoFalse
              .Left = rngTarget.Left
              .Top = rngTarget.Top
              .Width = rngTarget.Width
              .Height = rngTarget.Height
              .OnAction = "ImageResize"
          End With
      Else
          ImageFit = "No picture"
      End If
    End If
End Function

Hy vọng qua Hàm này các bạn sẽ cảm thấy hữu ích.

 

[HeSanbi]

Hàm chèn ảnh này của anh chèn 500 ảnh chắc phải chờ đến mùa đông năm sau.
Để chèn ảnh tốc độ tuyệt đối nên sử dụng HTML, với phương pháp truyền đường dẫn tuyệt đối vào src của tag Image.

Hình ảnh tham khảo:

 

[Hoàng Trọng Nghĩa]

Hàm chèn ảnh này của anh chèn 500 ảnh chắc phải chờ đến mùa đông năm sau.
Để chèn ảnh tốc độ tuyệt đối nên sử dụng HTML, với phương pháp truyền đường dẫn tuyệt đối vào src của tag Image.

Hình ảnh tham khảo:

Thật tuyệt vời, nhưng anh chỉ biết chút VBA chứ không biết các ngôn ngữ khác để viết.

 

[HeSanbi]

Có thời gian em sẽ cập nhật vào tệp quản lý ảnh bên bài viết này

Các Hàm quản lý ảnh: vị trí, kích thước, cắt, xóa, sắp xếp

Hôm nay tôi chia sẻ với bạn các Hàm bổ trợ quản lý ảnh cực kỳ thú vị, chức năng bao gồm: chỉnh vị trí, kích thước, cắt, xóa và sắp xếp ảnh một cách đơn giản, thuận tiện và nhanh gọn, giúp các bạn bớt khó khăn trong việc tinh chỉnh ảnh khi trong trang tính của bạn có quá nhiều đối tượng hình ảnh...

www.giaiphapexcel.com