Identificer graf

Holder du grafen som et ark? Hvis du gør det kan du benytte arknavnet.

Ellers lav et skjult regneark, hvori du lister grafnavne/indeks og et referenceID, som hjælper med at vide hvilke grafer er hvad.

Ved ikek hvor skarp du er på VBA, men her er lidt meeget hurtig kode, som blot kopiere en graf ud i samme ark.

    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartArea.Copy
    ActiveChart.ChartArea.Copy
    ActiveWindow.Visible = False
    Windows("Book1").Activate
    Range("K29").Select
    ActiveSheet.Paste

Jeg har fundet en løsning på problemet vha følgende kode efter jeg paster ind

Dim navn As String
navn = Activechart.Name

og så gemme navnet i en celle til næste gang.

Problemet er at navn bliver på følgende format ["sheetnavn" "grafnavn"]
når jeg næste gang kalder grafen i et ActiveSheet.ChartObjects(navn).Activate skal det være på formatet ["grafnavn"].

Er der en måde at gå ind og manipulere indeholdet af string'en så jeg smider første del væk?

Sub test()
Dim sChartname As String
Dim sSheetname As String
sChartname = ActiveChart.Name
sSheetname = ActiveSheet.Name
sChartname = Right(sChartname, Len(sChartname) - Len(sSheetname) - 1)
' eller
sChartname = Right(ActiveChart.Name, Len(ActiveChart.Name) - Len(ActiveSheet.Name) - 1)

Debug.Print sChartname

End Sub

Det virker sgu, takker :-)

Sender du lige et svar, så jeg kan give point?

fint :-)