Avatar billede hedl Praktikant
07. april 2011 - 20:17

Indlæs punkter fra database til wooksheet Graf Office 2010

Hej
Kan i hjælpe mig
Hvorledes skrives der værdier i dataark for graf i word 2010

Jeg har følgende kode

Sub AddChart_Word()
    Dim objShape As InlineShape
    Dim DataSize As String
   
    'Hopper til book mark hvor graf indsættes
    ActiveDocument.Bookmarks("Graf").Range.Select
   
    ' Create a chart and return a Shape object reference.
    ' The Shape object reference contains the chart.
    Set objShape = ActiveDocument.InlineShapes.AddChart(XlChartType.xlLineMarkers)
       
    ' Ensure the Shape object contains a chart. If so,
    ' set the source data for the chart to the range A1:rowCount.
    If objShape.HasChart Then
        DataSize = ("'Ark1'!$A$1:$A$" & RowCount)
        objShape.Chart.SetSourceData Source:=DataSize
        objShape.Chart.HasTitle = False
        'objShape.Chart.DataTable.Select
       
' DET ER HER JEG IKKE KAN FÅ NYE DATA IND I DEN integreret WOOKBOOK

    End If

End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester