ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : vb to vfp   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

jeu. 11 août 2022, 09h51
zakrola
Liban Liban

atoutfox.public.association

vb to vfp

sorry for posting in english
can any one help me to convert this code to vfp
Sub RangeToPicture()
Dim filename As String: filename = "c:\123.png"
Dim rPrt As Range: Set rPrt = ThisWorkbook.Sheets("Sheet1").Range("A1:K40")
'Add a Zoom to increase the resolution of the image.
'ActiveWindow.Zoom = 300
Dim chtObj As ChartObject
rPrt.CopyPicture xlPrinter, xlBitmap
Set chtObj = ActiveSheet.ChartObjects.Add(1, 1, rPrt.Width, rPrt.Height)
chtObj.Activate
ActiveChart.Paste
ActiveChart.Export filename
chtObj.Delete
'Reset Zoom to innitial zoom of the image.
'ActiveWindow.Zoom = 100
End Sub
regards



Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019995
19 933 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2022.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3