عمل سكان وحفظ في فولدر خاص

[محمد عبد الناصر]

السلام عليكم 
اسف للمره التانية برفع الموضوع والله عندي مشاكل فشغلي بسببها عايز بس كود يسحب سكان ويحفظ ف اي مكان بالجهاز ويكون اسم الفولدر اللي مكتوب في الخلية 
A1
 

والله في مشاكل في شغلي بسببها اسف مره تانية ياريت حد يساااااعدني ضرورررررررررري

[المسلم العربي]

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

 

 

[محمد عبد الناصر]

22 hours ago, المسلم العربي said:

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

 

 

السلام عليكم  اخي الكريم انا عايز كود ياخد الصور من الاسكانر يحفظها في فولدر  في اي مكان يحفظ الصور من غير ملف اكسيل يحفظ صور بسسسس في فولدر خاص بالاسم اللي مكتوب في الخلية

A1

لو تقدر تساعدني يبقى كتر خيرك عندي مشكله فشغلي بسبب الموضوع ده 

 

تم تعديل يناير 7, 2018 بواسطه محمد عبد الناصر

[محمد عبد الناصر]

up

[محمد عبد الناصر]

يا جماعه up

[محمد عبد الناصر]

uuuuppppppppppp

[محمد عبد الناصر]

upppppppp

[محمد عبد الناصر]

up up up up up up up