Referer til Object i ark, fra addin

Denne har jeg sat ind i en addin

Public Sub TestDiagram(schrt, svarr)
Dim x As ChartObject
Set x = ActiveSheet.ChartObjects(schrt)
    x.RoundedCorners = True
    x.ShapeRange.IncrementLeft 2.25
    x.ShapeRange.IncrementTop -39.75
    x.Chart.SeriesCollection(1).Values = svarr
End Sub


denne kode bruger jeg i mit ark til at kalde den med

Sub InsertValues()
    Dim a As String
    a = "{6, 2, 3, 4, 5, 6, 8}"
    testdiagram "Diagram 1", a      'diagramnavn og værdier som streng
End Sub

Husk at sætte reference til din addin

ææh - takker igen! :-)

smid et svar

/Compilos

ok :-)

bemærk lige at a ikke behøver være en streng, men også kan være et variantarray

a=array(1,2,2,12,2,1.1)

Hej - du får point! men kan sgu aligevel ikke få det til at virke!

Jeg har denne makro
    Workbooks(1).Sheets(1).ChartObjects("Chart 116").Activate
    Workbooks(1).ActiveChart.PlotArea.Select
    Workbooks(1).ActiveChart.ChartArea.Select
    Workbooks(1).Sheets(1).Shapes("Chart 116").IncrementLeft 2.25
    Workbooks(1).Sheets(1).Shapes("Chart 116").IncrementTop -39.75
    Workbooks(1).ActiveChart.SeriesCollection(1).Values = "={262,252,22,12,2,1.1}"
    Workbooks(1).ActiveChart.PlotArea.Select

Hvis jeg kopier koden ind i min addin - kører den fint koden igennem. - men den ændre ikke min kurve med :
    Workbooks(1).ActiveChart.SeriesCollection(1).Values = "={262,252,22,12,2,1.1}"


Kan du dreje den!

Er du sikker på at du har en graf, der hedder "Chart 116" og at den ligger i workbooks(1).

Hvorfor vil gerne lave en addin, når du alligevel peger på et specifikt ark og graf ?

Du er velkommen til at sende mig dine filer, så skal jeg se hvad jeg kan gøre.
tommybak snabela gmail.com

Hej bak!

Jeg kan desværre ikke sende det jeg roder med, - da der er over Terminal Service!

- Jeg er f..... up! og forvirret!

Har du et eksempel på et excel ark - hvor du kalder en funktion i arket der skifter kurvedataerne! - Det ville være KANON!

isåfald -> carsten.rasmussen@adr.dk

/Compilos