Chart and Curve in VBA API

Ask Question Forum:

Model Library:2025-02-08 Updated:A.I. model is online for auto reply question page

Show

ASK RECENT

Chart and Curve in VBA API

Asked by duncanb7

at 2024-09-13 01:10:37

Point:500 Replies:4 POST_ID:828527USER_ID:11059

Topic:

Visual Basic Programming;;Microsoft Excel Spreadsheet Software

I got one question on VBA, I am learning how to plot curve in vba and
find some example in goole seach and find following example and VBA code
But I am not familar with VBA userform1 usage , just want to know how to
let the form_paint() run to draw a curve. I try to run it in form_paint() but
it report "Me" word is not using correctly.

So the question is
What is "Me" means in the code, how to use it ?
Where the curve should be displayed, is it on userform window or Excel window ? how to make
it happen, Any good example for beginner ? Do I need to create userform1 first so then
call form_point() function, but how ? any simple code me to start ?

Pleae advise

Duncan

Private Type POINTAPI        x As Long        y As LongEnd TypePrivate Declare Function PolyBezier Lib "gdi32.dll" (ByVal hdc As Long, lppt As POINTAPI, ByVal cPoints As Long) As LongPrivate Declare Function PolyBezierTo Lib "gdi32.dll" (ByVal hdc As Long, lppt As POINTAPI, ByVal cCount As Long) As LongPrivate Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As Any) As LongPrivate Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As LongPrivate Declare Function PolyPolygon Lib "gdi32.dll" (ByVal hdc As Long, lpPoint As POINTAPI, lpPolyCounts As Long, ByVal nCount As Long) As LongPrivate Sub Form_Paint()    'KPD-Team 2000    'URL: http://www.allapi.net/    'E-Mail: KPDTeam@Allapi.net    Dim pts(0 To 6) As POINTAPI    Dim numpoints(0 To 1) As Long    'set the co¿¿dinates    pts(0).x = 0: pts(0).y = 100    pts(1).x = 125: pts(1).y = 75    pts(2).x = 255: pts(2).y = 148    pts(3).x = 219: pts(3).y = 199    pts(4).x = 315: pts(4).y = 203    pts(5).x = 236: pts(5).y = 16    pts(6).x = 122: pts(6).y = 123    'set the forecolor to green    Me.ForeColor = vbGreen    'draw the b¿¿ier    PolyBezier Me.hdc, pts(0), 7    'set the forecolor to red    Me.ForeColor = vbRed    'move the 'active' point    MoveToEx Me.hdc, 200, 25, ByVal 0&    'set the co¿¿dinates    pts(0).x = 125: pts(0).y = 50    pts(1).x = 123: pts(1).y = 200    pts(2).x = 102: pts(2).y = 100    pts(3).x = 102: pts(3).y = 100    pts(4).x = 312: pts(4).y = 75    pts(5).x = 289: pts(5).y = 125    'draw the b¿¿ier    PolyBezierTo Me.hdc, pts(0), 6    'set the forecolor to blue    Me.ForeColor = vbBlue    'set the points belonging to the rectangle    pts(0).x = 20: pts(0).y = 10    pts(1).x = 200: pts(1).y = 10    pts(2).x = 200: pts(2).y = 190    pts(3).x = 20: pts(3).y = 190    numpoints(0) = 4    'set the points belonging to the triangle    pts(4).x = 100: pts(4).y = 0    pts(5).x = 50: pts(5).y = 100    pts(6).x = 150: pts(6).y = 100    numpoints(1) = 3    'draw the polygons    PolyPolygon Me.hdc, pts(0), numpoints(0), 2End Sub

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:21:22:23:24:25:26:27:28:29:30:31:32:33:34:35:36:37:38:39:40:41:42:43:44:45:46:47:48:49:50:51:52:53:54:55:56:57:

Select All Code

Author: duncanb7 replied at 2024-09-13 03:09:46

If I set hdc instead me.hdc and put
hdc=Getforegroundwindow(), and it works better

Thanks for your reply

Duncan

Accepted Solution

Expert: andrewssd3 replied at 2024-09-13 02:14:20

500 points GOOD

That's why I suggested you do it another way. It's complicated and not easy to maintain and won't be guaranteed to work in future Office versions. But if you want to go down that route, take a look at this: http://www.cpearson.com/excel/formcontrol.aspx

Author: duncanb7 replied at 2024-09-13 02:04:14

ANd now I create an userform1 and add one command button to call Form_Paint() and
I replace the name of Form_paint() by Commandbutton1_Click(), now it won't report "Me"
error, porbably, ME is refer to userform1. But now report error on Me.hdc in which hdc is
not member. What is hdc, How can I find correct Me.hdc ?

Thanks

Duncan

Expert: andrewssd3 replied at 2024-09-13 01:57:25

I think the code you have downloaded was probably created for VB6, and you'll find it difficult to get it working in Excel VBA. This code is intended to draw the shapes on a userform, which is not easy in VBA. Are you trying to draw shapes onto an Excel worksheet? If so there are various methods of the Shapes collection that you can look up online, for example AddPolyLine, AddCurve which allow you to do this without using Windows apis.

新聞財經娛樂♬資訊 News Economy

About Us|Service|Pricing

Stock Index全球即時指數期貨:

&nbps;

News即時新聞:↓

News即時新聞:↑

On Balance Volume (OBV):

Youtube Video♬ Sharing by members:↓

Youtube Video♬ Sharing by members:↑

Ask Question Forum:

Chart and Curve in VBA API

Your Information

Members/Profolio