أرجو المساعدة في الرسم البياني

[sayed_hu95]

قمت بعمل رسم بياني في نموذج اكسس , وأريد ان تظهر الارقام على الاعمدة عندما يشير اليها الماوس

أرجو المساعدة في اظهار المسميات عند تحريك الماوس

[sayed_hu95]

اذا كانت هناك صعوبة فهل يمكن تكبير جزء من المخطط

فلقد وضعت القيم بخط صغير فعند التكبير ستظهر

[sayed_hu95]

أرجو الافادة

بالبحث في النت وجدت كود للاكسل ولكن كيف يمكن تطبيقه على الاكسس

 

Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Dim ElementID As Long
Dim Arg1 As Long
Dim Arg2 As Long
Dim chart_data As Variant
Dim chart_label As Variant
Dim last_bar As Long
Dim chrt As Chart
Dim ser As Series

On Error Resume Next

Me.GetChartElement x, y, ElementID, Arg1, Arg2

Application.ScreenUpdating = False
Set chrt = ActiveChart
Set ser = ActiveChart.SeriesCollection(1)
chart_data = ser.Values
chart_label = ser.XValues

Set txtbox = ActiveSheet.Shapes("hover")

If ElementID = xlSeries Then
    If Err.Number Then
        Set txtbox = ActiveSheet.Shapes.AddTextbox _
                                        (msoTextOrientationHorizontal, x - 150, y - 150, 100, 100)
        txtbox.Name = "hover"
        txtbox.Fill.Solid
        txtbox.Fill.ForeColor.SchemeColor = 9
        txtbox.Line.DashStyle = msoLineSolid
        chrt.Shapes("hover").TextFrame.Characters.Text = "$ " & Application.WorksheetFunction.Text(chart_data(Arg2), "???.??") & " bn" & Chr(10) & Chr(10) & chart_label(Arg2)
        With chrt.Shapes("hover").TextFrame.Characters.Font
            .Name = "Arial"
            .Size = 12
            .ColorIndex = 16
        End With
        With chrt.Shapes("hover").TextFrame.Characters(Start:=1, Length:=11).Font
            .Name = "Haettenschweiler"
            .Size = 20
            .ColorIndex = 1
        End With
        last_bar = Arg2
    End If
    ser.Points(Arg2).Interior.ColorIndex = 44
    txtbox.Left = x - 150
    txtbox.Top = y - 150
   
Else
    txtbox.Delete
    ser.Interior.ColorIndex = 16
End If
Application.ScreenUpdating = True
End Sub

 

[sayed_hu95]

مرفق ملف اكسل والذي امل في عمل نفس الطريقة في الاكسس او أي طريقة اخرى لعرض البيانات

chart.rar

[sayed_hu95]

وجدت على النت البرنامج المرفق رائع جدا لعمل zoom ولكن لا اعرف كيف اقوم بتطبيقه

هل يمكن لخبراء الاكسس شرح هذا البرنامج المرفق

ZoomChart_A2003.rar

[sayed_hu95]

الا يوجد في المنتدى من يساعد في الرسم البياني أو حتى على الاقل يتم تحويل الرسم البياني الى أعمدة

[بحار الاكسس]

ارسل البرنامج التى تريد على التطبيق وانا باذن الله اضبطلك الرسم البيانى

[sayed_hu95]

اشكرك على التجاوب

مرفق البرنامج

degree.rar

[بحار الاكسس]

اليك الحل

degree.rar

[sayed_hu95]

ليس هذا المطلوب

امل مراجعة ما كتبته