Quản lý hình ảnh bằng Excel.

[batman1]

Vâng. Xin cảm ơn thành viên be09.
Xin được trợ giúp từ mọi người.
Đây là file gốc tải về trên diễn đàn. (Đã xóa bớt ảnh đi cho file nhẹ hơn)
Mình đính kèm file và có yêu cầu trong file.

Alt + F11 -> đúp chuột vào Sheet3 (HSo) -> thay code ở bên phải bằng

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$AP$3" Then
        Application.ScreenUpdating = False
        With Me
            On Error Resume Next
            .Shapes("$C$3").Delete
            If Err.Number Then Err.Clear
            Sheet1.Shapes("Rectangle " & .[AP3].Value).Copy
            If Err.Number = 0 Then
                .Paste .[C3]
                With Selection
                    .Height = Me.[C3:I10].Height
                    .Width = Me.[C3:I10].Width
                    .Name = "$C$3"
                End With
                Application.CutCopyMode = False
                Target.Activate
            End If
            On Error GoTo 0
        End With
        Application.ScreenUpdating = True
    End If
End Sub

 

[lenolim]

Alt + F11 -> đúp chuột vào Sheet3 (HSo) -> thay code ở bên phải bằng

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$AP$3" Then
        Application.ScreenUpdating = False
        With Me
            On Error Resume Next
            .Shapes("$C$3").Delete
            If Err.Number Then Err.Clear
            Sheet1.Shapes("Rectangle " & .[AP3].Value).Copy
            If Err.Number = 0 Then
                .Paste .[C3]
                With Selection
                    .Height = Me.[C3:I10].Height
                    .Width = Me.[C3:I10].Width
                    .Name = "$C$3"
                End With
                Application.CutCopyMode = False
                Target.Activate
            End If
            On Error GoTo 0
        End With
        Application.ScreenUpdating = True
    End If
End Sub

Xin cảm ơn anh.
Khi nãy thử Code thì thấy lỗi.
Bây giờ tắt file, save lại thì lại được rồi.
Cảm ơn anh rất nhiều ! ./.

 

[befaint]

làm thế nào cho file nhiều ảnh mà nhẹ bạn nhỉ

Sao vẫn kiên trì đăng bài vậy ta? Mình nghĩ được tặng vé đi du lịch rồi chứ?

Nhiều ảnh thì dung lượng tăng phình to lên, làm gì có chuyện nhẹ được? Kiểu này 1 cân sắt nặng hơn 1 cân bông í hả?

 

[ptm0412]

Sao vẫn kiên trì đăng bài vậy ta? Mình nghĩ được tặng vé đi du lịch rồi chứ?

Đang mùa covid nên cấm du lịch tiếp xúc đông người, sao mà dám cấp vé

 

[ngochinh2211]

Thay vì làm vậy, anh thử đưa tất cả hình vào ImageList xem! Em nghĩ có thể gọn nhẹ hơn đấy ---> 1 ImageList chứa được nhiều hình, khi cần có thể lấy ra dễ dàng

Hi Anh.
nhờ anh chỉ em định dạng dửa liệu hình ảnh bằng giá trị tại một cell như này với ah

 

[babyheomoi]

Anh sealand có thể chỉ em cách làm:"Đầu tiên, ta đưa tất cả các ảnh vào trong file Excel bằng cách Add hàng loạt các Rectangle rồi fill ảnh vào các Rectangle này." Mong Anh chỉ giáo!!!!

Vâng, em cũng thắc mắc cái này là sao?? làm sao để đánh số ảnh khi add vào tương ứng với số thứ tự?

 

[Nguyễn Duy Tuân]

Hi Anh.
nhờ anh chỉ em định dạng dửa liệu hình ảnh bằng giá trị tại một cell như này với ahView attachment 260369

Nếu bạn chưa làm được bằng VBA mà cần dùng thì hãy xem hướng dẫn dùng hàm BS_PIC (hàm này free trong Add-in A-Tools). Bạn xem tại đây

 

[tiwenger]

cách này hay, phải biết cách lấy ra hàng loạt nữa