DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Excel VBA ile mi Visual Studio gibi bir program ile mi?Arkadaşlar merhabar
Basit bir Optik okuyucu nasıl yapabilirim.
Sub SCAN()
Range("A1").Select
ActiveCell.FormulaR1C1 = 1
Const FromScannerorCamera As Long = 1764
Application.CommandBars.FindControl(, FromScannerorCamera).Execute
'
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = 912#
Selection.ShapeRange.Height = 1092#
'
End Sub
Tarayıcı ortamım olmadığı için şuan deneyemedim.
İlk aşama olarak aşağıdaki kod ile başlayabilirsiniz.
Kod:Sub SCAN() Range("A1").Select ActiveCell.FormulaR1C1 = 1 Const FromScannerorCamera As Long = 1764 Application.CommandBars.FindControl(, FromScannerorCamera).Execute ' Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Width = 912# Selection.ShapeRange.Height = 1092# ' End Sub
Yanlış anlama olmasın.Asri Hocam,
Zaten taranmış olarak bilgisayarda olan dosyalar için de bir seçenek koyabilir misiniz? Bu arada taranmış belge PDF mi olmalı? Biraz açabilir misiniz? Nasıl bir optik form kullanmalı? Cevap anahtarını nerden almalı?
Peki excele resim olarak mı atıyor yoksa hücrelere text olarak mı?Yanlış anlama olmasın.
Konuda istenen şey detaylı bir iş.Özellikle belirttim, ilk aşama için diye
bu kod ise bulduğum ancak denemediğim, anladığım kadarı ile tarayıcıdan excel e taramaya yarıyor.
Tarama yapıldıktan sonra oluşan resim dosyasından cevaplara ulaşmak çok farklı bir konu olacak.
Tarama yaptığı için resim olarak gelir. Yarın iş yerinde dener sonucu bildiririm.Peki excele resim olarak mı atıyor yoksa hücrelere text olarak mı?
Hatırlarsınız, benzer işlem için Abby ve Acrobat kullanmaya çalışmıştık.
Tarama yaptığı için resim olarak gelir. Yarın iş yerinde dener sonucu bildiririm.
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = 912#
Selection.ShapeRange.Height = 1092#