Konu: memo alandaki resmi excele gönderme
Değerli arkadaşlar;
Ben resim dosyalarını memo alanda picture val degerleri ile tutuyorum
bu resimleri excel e nasıl gönderebiliriz.
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
Değerli arkadaşlar;
Ben resim dosyalarını memo alanda picture val degerleri ile tutuyorum
bu resimleri excel e nasıl gönderebiliriz.
İnternette epeyce araştırma yaptım. Ama sonuç alamadım. c:\fox\123.jpg adlı resmi excele nasıl aktarabilirim? Ayrıca excel üzerindeki konumunu da ayarlamak istiyorum. Yükseklik genişlik gibi. Bu konuda tecrubesi olan arkadaşlardan yardım bekliyorum. (kodlar vfp veya vb olabilir.)
Ben bunu internete postalamistim ama sanirim oralara denk gelmemissin:
Local ix, lnPerRow, lnWidth, lnHeight, lnRow, lnCol
lnPerRow = 4
lnWidth = 100
lnHeight = 180
oExcel = Createobject('Excel.Application')
With oExcel
.WorkBooks.Add
.Visible = .T.
With .ActiveWorkBook.ActiveSheet
For ix = 1 To Adir(aGIF, _samples+'data\graphics\*.gif')
lnRow = Ceiling(m.ix/m.lnPerRow)
lnCol = (m.ix-1)%m.lnPerRow+1
.Shapes.AddPicture( _samples+'data\graphics\'+aGIF[m.ix,1], .T., .T., ;
(m.lnCol - 1) * (m.lnWidth + 10), ;
(m.lnRow - 1) * (m.lnHeight + 10), ;
m.lnWidth, m.lnHeight)
Endfor
Endwith
Endwith
Bir baska ornek, bu soruyla daha dogrudan ilgili:
oExcel = Createobject('Excel.Application')
With oExcel
.WorkBooks.Add
.Visible = .T.
With .ActiveWorkBook.ActiveSheet
Local loRange
loRange = .Range('B2:E6')
.Shapes.AddPicture( _samples+'data\graphics\buchstev.gif', .T., .T., ;
loRange.Left, loRange.Top, loRange.Width, loRange.Height)
Endwith
Endwith
Çetin hocam çok teşekkür ederim.
Eğer zahmet olmazsa bu kodları vb ye (2010) dönüştürebilir misiniz.?
Ben VB ile ilgilenmiyorum ve bilmiyorum. C# vereyim ilgili kisi cevirsin:
dynamic xl = new Microsoft.Office.Interop.Excel.Application();
xl.WorkBooks.Add();
xl.Visible = true;
string file = @"C:\PROGRAM FILES (X86)\MICROSOFT VISUAL FOXPRO 9\SAMPLES\data\graphics\buchstev.gif";
dynamic oSheet = xl.ActiveWorkBook.ActiveSheet;
dynamic oRange = oSheet.Range("B2:E6");
oSheet.Shapes.AddPicture(file, true, true, oRange.Left, oRange.Top, oRange.Width, oRange.Height);
VB'de galiba dynamic yok:
var excel = new Excel.Application();
excel.Visible = true;
excel.Workbooks.Add();
var oSheet = (Excel.Worksheet)excel.ActiveWorkbook.ActiveSheet;
var oRange = (Excel.Range)oSheet.get_Range("B2:E6");
string file = @"C:\PROGRAM FILES (X86)\MICROSOFT VISUAL FOXPRO 9\SAMPLES\data\graphics\buchstev.gif";
oSheet.Shapes.AddPicture(file,
Microsoft.Office.Core.MsoTriState.msoTrue,
Microsoft.Office.Core.MsoTriState.msoTrue,
oRange.Left, oRange.Top, oRange.Width, oRange.Height);