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.
Bilgi Paylaşıldıkça Artar...!
- antepli
- Uzman Üye
- Offline
- smentes
- Uzman Üye
- Offline
Re: memo alandaki resmi excele gönderme
İ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.)
- cetinbasoz
- Uzman Üye
- Offline
Re: memo alandaki resmi excele gönderme
Ben bunu internete postalamistim ama sanirim oralara denk gelmemissin:
Visual Fox Pro
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
- cetinbasoz
- Uzman Üye
- Offline
Re: memo alandaki resmi excele gönderme
Bir baska ornek, bu soruyla daha dogrudan ilgili:
Visual Fox Pro
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
- smentes
- Uzman Üye
- Offline
Re: memo alandaki resmi excele gönderme
Çetin hocam çok teşekkür ederim.
Eğer zahmet olmazsa bu kodları vb ye (2010) dönüştürebilir misiniz.?
- cetinbasoz
- Uzman Üye
- Offline
Re: memo alandaki resmi excele gönderme
Ben VB ile ilgilenmiyorum ve bilmiyorum. C# vereyim ilgili kisi cevirsin:
C#
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);
- cetinbasoz
- Uzman Üye
- Offline
Re: memo alandaki resmi excele gönderme
VB'de galiba dynamic yok:
C#
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);