1 Konuyu açan antepli

  • antepli
  • Üye
  • Offline
  • Kayıt Tarihi: 20.07.2007
  • İleti: 155

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...!

2 Cevaplayan smentes

  • smentes
  • Üye
  • Offline
  • Yer: Denizli
  • Kayıt Tarihi: 01.09.2006
  • İleti: 257

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.)

3 Cevaplayan cetinbasoz

  • cetinbasoz
  • Moderatör
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 2,318

Re: memo alandaki resmi excele gönderme

Ben bunu internete postalamistim ama sanirim oralara denk gelmemissin:


Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

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
Yen yaz 1907'ye yolla FB gelsin evinde yensin.
(sonra salaklar ciksin alin terine şike desin)

cetinbasoz's Website

4 Cevaplayan cetinbasoz

  • cetinbasoz
  • Moderatör
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 2,318

Re: memo alandaki resmi excele gönderme

Bir baska ornek, bu soruyla daha dogrudan ilgili:


Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

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
Yen yaz 1907'ye yolla FB gelsin evinde yensin.
(sonra salaklar ciksin alin terine şike desin)

cetinbasoz's Website

5 Cevaplayan smentes

  • smentes
  • Üye
  • Offline
  • Yer: Denizli
  • Kayıt Tarihi: 01.09.2006
  • İleti: 257

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.?

6 Cevaplayan cetinbasoz

  • cetinbasoz
  • Moderatör
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 2,318

Re: memo alandaki resmi excele gönderme

Ben VB ile ilgilenmiyorum ve bilmiyorum. C# vereyim ilgili kisi cevirsin:

C#
1

2

3

4

5

6

7

8

9

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);
Yen yaz 1907'ye yolla FB gelsin evinde yensin.
(sonra salaklar ciksin alin terine şike desin)

cetinbasoz's Website

7 Cevaplayan cetinbasoz

  • cetinbasoz
  • Moderatör
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 2,318

Re: memo alandaki resmi excele gönderme

VB'de galiba dynamic yok:

C#
1

2

3

4

5

6

7

8

9

10

11

12

13

14

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);
Yen yaz 1907'ye yolla FB gelsin evinde yensin.
(sonra salaklar ciksin alin terine şike desin)

cetinbasoz's Website