Các bài viết trong bài này không giống như yêu cầu trong báo cáo của em. Để em gửi file lên để các anh chị giúp đỡ. Trong file có 3 sheet tên 273, 274, 275 (số lượng sheet không giới hạn tùy theo ngày ít hay nhiều) và em cũng đã có các file hình ảnh với các tên như thế, khi nhấn 1 nút nào đó thì hình ảnh sẽ tự dộng chèn vào vị trí em mong muốn giống như trong file. Xin cảm ơn!
Yêu cầu này càng dể!
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
On Error Resume Next
With ActiveSheet
If .Name <> "report" Then
.Shapes(.Name).Delete
With .Pictures.Insert(ThisWorkbook.Path & "\" & .Name & ".jpg")
.Name = ActiveSheet.Name
.Left = Range("C12:O32").Left: .Top = Range("C12:O32").Top
.Width = Range("C12:O32").Width: .Height = Range("C12:O32").Height
End With
End If
End With
Application.ScreenUpdating = True
End SubChỉnh vị trị hình là code này:
.Left = Range("C12:O32").Left: .Top = Range("C12:O32").Top.Width = Range("C12:O32").Width: .Height = Range("C12:O32").HeightPrivate Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
On Error Resume Next
If Sh.Name <> "report" Then
Sh.Shapes(Sh.Name).Delete
With Sh.Pictures.Insert(ThisWorkbook.Path & "\" & Sh.Name & ".jpg")
.Name = Sh.Name
.Left = Range("D13:N31").Left: .Top = Range("D13:N31").Top
.Width = Range("D13:N31").Width: .Height = Range("D13:N31").Height
End With
End If
Application.ScreenUpdating = True
End SubChào bạn!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$N$4" Then
Application.ScreenUpdating = False
On Error Resume Next
Me.Shapes("Pic").Delete
With Me.Pictures.Insert(ThisWorkbook.Path & "\" & Target & ".jpg")
.Name = "Pic"
.Left = [D13:N31].Left: .Top = [D13:N31].Top
.Width = [D13:N31].Width: .Height = [D13:N31].Height
End With
Application.ScreenUpdating = True
End If
End SubEm đã hiểu ý của bác rồi, nhưng vấn đề của e ở đây là cái kich thước của hình nó k cùng tỉ lệ với vị trí mong muốn ( vì cái file hình đc xuất ra từ chương trinh khác không điều chỉnh đc kích thước) e nghỉ như thế này không biết bác có giúp e đc k?! e muốn chiều rộng của hình bằng 1.2 lần chiều cao sau khi chèn vào, hoặc có cáh nào cắt bớt hình cho nhỏ lại và dùng border cho picture một cách tự động k? (E có để 2 hình 273.jpg và 274.jpg để tiện so sánh)
Việc cắt xén hình không phải là làm không được (đối với VBA)... nhưng tại sao bạn không tự edit hình trước rồi hẳn đưa vào Excel? Edit Picture trong Excel có phải là việc làm tốn kém không cần thiết không?
Em cũng đã từng nghĩ như bác trước đây, nếu mỗi ngày chỉnh sửa khoảng 10 pic thì ok nhưng đằng này hàng ngày có gần 100 pic thì làm sao chỉnh đc, bác có cách nào giúp e k?
Ôi...
Bạn làm vầy nè:
