Thêm 1 Cách Chụp Hình Cell Bằng Vba

[anhtuan1066]

Chúng ta thường copy cell và paste Picture Link... Thêm 1 cách nữa bằng VBA cũng có chức năng chụp hình cell tương tự, nhưng khi thao tác thì nhanh hơn rất nhiều... Các bạn chạy code này thử xem:

Sub CHUPHINHCEL()
Dim MyPrompt As String
Dim MyTitle As String
Dim UserRange As Range
Dim OutputRange As Range
Application.ScreenUpdating = True
MyPrompt = "CHON KHU VUC CAN CHUP HINH"
MyTitle = "CHUP HINH CELL"
On Error Resume Next
Set UserRange = Application.InputBox(Prompt:=MyPrompt, _
Title:=MyTitle, Default:=ActiveCell.Address, Type:=8)
If UserRange Is Nothing Then End
On Error GoTo 0
UserRange.CopyPicture
MyPrompt = "CHON KHU VUC MA BAN MUON DAN HINH VAO"
MyTitle = "DAN HINH"
On Error Resume Next
Set OutputRange = Application.InputBox(Prompt:=MyPrompt, _
Title:=MyTitle, Default:=ActiveCell.Address, Type:=8)
If OutputRange Is Nothing Then End
On Error GoTo 0
OutputRange.PasteSpecial
Selection.Formula = UserRange.Address
End Sub

Mến
ANH TUẤN

 

[LikeIt]

anh Tuấn giải thích rõ hơn một chút , em copy vào rồi nhưng không biết cách sử dụng ntn?

 

[ongtrungducmx25]

anh Tuấn giải thích rõ hơn một chút , em copy vào rồi nhưng không biết cách sử dụng ntn?

trong excel có chức năng chụp hình mà , bạn vào customize/comman/camera ra màng hình là chụp thoải máy luôn đó!

 

[anhtuan1066]

Đúng là giống như vậy đấy... nhưng dùng macro thì thao tác nhanh hơn.. Ở đây chỉ là tham khảo đễ vọc macro thôi chứ ko bắt buột bạn phải dùng cách này... Cũng giống như Protect và UnProtect bằng Macro vậy... Dùng cách thông thường cũng chẳng chết ai, thế nhưng có người vẫn thích bằng Macro cơ.. hi.. hi.. (tất nhiên làm bằng macro thì thao tác phải nhanh hơn, nếu ko ai thèm làm)
Với HT: Em copy code đó vào 1 Module, Thoát VBE, vẽ 1 nút nhấn và link nút ấy tới macro vừa tạo... giống File này nè
ANH TUẤN