LucasNguyen11
Thành viên mới
- Tham gia
- 11/2/19
- Bài viết
- 9
- Được thích
- 0
Mình có 1 file VBA, nay mình muốn chèn thêm đoạn code chụp màn hình dán vào.
Nhưng ko rõ bị sai hay trùng, sai logic thế nào mà chạy ko dc. Mình cũng tay ngang nên ko rành sửa lỗi.
Các bác hỗ trợ sửa lỗi giúp với ah. Em gửi cafe cảm ơn ah
Đoạn code chụp màn hình mình sưu tầm dc
Option Explicit
Sub CopyScreen()
Dim h As Single, w As Single
Application.SendKeys "({1068})", True
DoEvents
ActiveSheet.Paste
Dim shp As Shape
With ActiveSheet
Set shp = .Shapes(.Shapes.Count)
End With
shp.Height = 100
shp.Width = 40
h = -(100 - shp.Height)
w = -(40 - shp.Width)
shp.LockAspectRatio = False
shp.PictureFormat.CropRight = ActiveSheet.Range("A1").Left
shp.PictureFormat.CropBottom = ActiveSheet.Range("A1").Top
End Sub
Vừa mở file nhập vừa mở webcam để quay biển số xe. Nhập dữ liệu trên useform xong, click nút thì sẽ vừa nhập dữ liệu vào excel vừa chụp màn hình để có biển số xe dán vào
Nhưng ko rõ bị sai hay trùng, sai logic thế nào mà chạy ko dc. Mình cũng tay ngang nên ko rành sửa lỗi.
Các bác hỗ trợ sửa lỗi giúp với ah. Em gửi cafe cảm ơn ah
Đoạn code chụp màn hình mình sưu tầm dc
Option Explicit
Sub CopyScreen()
Dim h As Single, w As Single
Application.SendKeys "({1068})", True
DoEvents
ActiveSheet.Paste
Dim shp As Shape
With ActiveSheet
Set shp = .Shapes(.Shapes.Count)
End With
shp.Height = 100
shp.Width = 40
h = -(100 - shp.Height)
w = -(40 - shp.Width)
shp.LockAspectRatio = False
shp.PictureFormat.CropRight = ActiveSheet.Range("A1").Left
shp.PictureFormat.CropBottom = ActiveSheet.Range("A1").Top
End Sub
Vừa mở file nhập vừa mở webcam để quay biển số xe. Nhập dữ liệu trên useform xong, click nút thì sẽ vừa nhập dữ liệu vào excel vừa chụp màn hình để có biển số xe dán vào
