Chèn hình ảnh tự động vào excel

[lenolim]

đâu nhất thiết cứ phải VBA để chèn ảnh nhỉ

Xin được hỏi anh mấy vấn đề.
1.Nguyên tắc để hiện ảnh là thế nào nhỉ. (Nếu ta muốn áp dụng cho file mới).
2. Với các ảnh kích thước khác nhau. Làm sao để khi hiện ảnh nó hiện đầy trong khung ảnh.

 

[mua_tuyet2007]

Các cao thủ giúp em với, em làm file báo cáo này ở sheet PD em cần chèn chữ ký tự động của 2 người vào ô N29 và AK27 chữ ký em để trong sheet PD luôn. Giúp em với nhé

 

[July030719]

hi mn. e có mày mò làm cái file báo cáo công việc cần chèn hình ảnh . lý do là e mù excel quá nhờ các ace xử lý hay hướng dẫn giúp e vs. e có đính kèm tiệp hình ảnh. e cảm ơn

 

[July030719]

Sửa code của bạn thành vầy nhé:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Rng As Range, rPic As Range, FileName As String
  Application.ScreenUpdating = False
  On Error Resume Next
  If Not Intersect([A4], Target) Is Nothing Then
    ActiveSheet.Shapes("Pic").Delete
    Set Rng = Sheet1.Range(Sheet1.[A1], Sheet1.[A45500].End(xlUp)).Resize(, 10)
    Set rPic = Rng.Resize(, 1).Find(Target, , xlValues, xlWhole)
    If Not rPic Is Nothing Then
      FileName = ThisWorkbook.Path & "\" & rPic.Offset(, 6).Value
      If CreateObject("Scripting.FileSystemObject").FileExists(FileName) Then
        ActiveSheet.Pictures.Insert(FileName).Name = "Pic"
        With ActiveSheet.Shapes("Pic")
          .LockAspectRatio = False
          .Left = [B2:C10].Left: .Top = [B2:C10].Top
          .Width = [B2:C10].Width: .Height = [B2:C10].Height
        End With
      End If
    End If
  End If
  Application.ScreenUpdating = True
End Sub

Lưu ý: Dòng code màu đỏ chỉ áp dụng cho Excel 2007 trở đi (nếu dùng Excel 2003 thì hãy xóa dòng màu đó ấy)

e có file nội dung muốn chèn hình như trên nhưng e íu phần code quá mong a chỉnh sữa giúp e file này với ạ. cảm ơn anh trước

 

[ocho]

Mình có một file excel chèn hình băng VBA nhưng khi copy sang file khac để gửi mail mà người nhận không thể xem được hình trong file đó. Mong các sư phụ chỉ dẩn giup ah! View attachment 106098

cái này bạn đã xử lý được chưa bạn

 

[snow25]

cái này bạn đã xử lý được chưa bạn

Thì cái này chỉnh sửa không phải là đường link nữa mà là đính kèm luôn trên File.Bạn vào kênh tin học phong an trên youtube có mấy video hướng dẫn cái này nhé.

 

[anhtuan_0902]

Thầy ndu96081631 giúp em file này với ạ​

- Em muốn hình vẽ bên Data vẽ ở 4 cột thì sang bên sheet 2 dữ liệu ra cũng nằm trong phạm vi 4 cột (hoặc theo số cột bên sheet Data).
- Em muốn nhập giá trị vào các ô dưới các đoạn thẳng trong hình bên Sheet2 nhưng khi click vào ô thì hình nó hiện lên
Em cảm ơn thầy nhiều ạ

 

[cantl]

Thầy ndu96081631 giúp em file này với ạ​

- Em muốn hình vẽ bên Data vẽ ở 4 cột thì sang bên sheet 2 dữ liệu ra cũng nằm trong phạm vi 4 cột (hoặc theo số cột bên sheet Data).
- Em muốn nhập giá trị vào các ô dưới các đoạn thẳng trong hình bên Sheet2 nhưng khi click vào ô thì hình nó hiện lên
Em cảm ơn thầy nhiều ạ

Kết bạn với nhau đi để cùng làm 1 mẫu chuẩn, rồi chia sẻ cho thế giới.

https://www.giaiphapexcel.com/diendan/threads/nh%E1%BB%9D-vi%E1%BA%BFt-code-vba-t%E1%BB%B1-%C4%91%E1%BB%99ng-hi%E1%BB%87n-shapes-khi-nh%E1%BA%ADp-s%E1%BB%91-th%E1%BB%A9-t%E1%BB%B1.167480/post-1117778