Em chào anh chị trong diễn đàn, nhờ anh chị sửa code giúp em, em muốn ảnh vừa khịt vào ô (kể cả khi gộp ô) và khi kéo dãn ô, ảnh di chuyển giãn theo.
Vậy mong anh chị sửa code giúp em, em cám ơn ạ
Chỉ thấy có từ vừa khít, chưa bao giờ gặp trường hợp vừa "khịt".
Có lẽ trong excel không hỗ trợ nhiều về chỉnh sửa ảnh như mong muốn của bạn, nếu có thì chắc code cũng khá phức tạp.
Chỉ thấy có từ vừa khít, chưa bao giờ gặp trường hợp vừa "khịt".
Có lẽ trong excel không hỗ trợ nhiều về chỉnh sửa ảnh như mong muốn của bạn, nếu có thì chắc code cũng khá phức tạp.
Em muốn sửa lại code, để cho ảnh vừa vào 1 ô (Nếu gộp ô vừa cả ô gộp) và khi giãn ô ảnh cũng giãn theo ạ.
Function ChenAnh(maSP As Range) As String
Dim ws As Worksheet
Dim cell As Range, vung As Range
Dim newShp As Shape
Dim tenAnhGoc As String, tenAnhMoi As String
Dim i As Integer
Dim folderPath As String
Dim filePath As String
Dim wsData As Worksheet
Dim wsCaller As Worksheet
On Error GoTo KetThuc
Set cell = Application.Caller
Set wsCaller = cell.Worksheet
If wsCaller.Name <> Application.ActiveSheet.Name Then Exit Function
If cell.MergeCells Then
Set vung = cell.MergeArea
Else
Set vung = cell
End If
Set wsData = ThisWorkbook.Sheets("Anh")
folderPath = wsData.Range("F2").Value
If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"
tenAnhMoi = "Anh_" & cell.Address(0, 0)
Application.ScreenUpdating = False
For i = wsCaller.Shapes.Count To 1 Step -1
If wsCaller.Shapes(i).Name = tenAnhMoi Then
wsCaller.Shapes(i).Delete
Exit For
End If
Next i
If Trim(maSP.Value) = "" Then GoTo KetThuc
tenAnhGoc = Trim(maSP.Value) & ".jpg"
filePath = folderPath & tenAnhGoc
If Dir(filePath) = "" Then
tenAnhGoc = Trim(maSP.Value) & ".png"
filePath = folderPath & tenAnhGoc
If Dir(filePath) = "" Then GoTo KetThuc
End If
