On Excel-tidosto, jossa on graafeja (Scatter), jotka on piirretty toisessa tiedostossa olleilla arvoilla. Nyt tätä toista ei enää ole.Onko keinoa palauttaa näiden graafien x-arvoja?
Y-arvot saan luettua, mutta x-arvojen paikalla onkin vain järjestysluku:
Sheets("Chart1").Select
Dim d As Variant
Dim x As Variant
ActiveChart.SeriesCollection(1).Select
d = Selection.Values
x = Selection.XValues
Tiedon palautus graafeista
18+15
3
223
Vastaukset
- 18+15
Jossain niiden x-arvojenkin täytyy olla piilotettuna, sillä Excel näyttää ne hiirellä käyrän pisteitä osoitettaessa. Niitä pisteitä vain on niin paljon...
- Mennyttäkö?
Vähän samanlainen ongelma. Wordissa on Excelillä tehty kuvaaja. Tuo Excel-pohja on muuttunut, mutta haluaisin nuo vanhat arvot talteen. Jos yritän kopioida kuvaajan Exceliin (tai mihin tahansa), kaikki arvot katoavat.
Sub HaeTaulukonArvot()
Dim X As Object
Dim laskuri As Integer
'muuta taulukon nimi sopivaksi
Worksheets("Sheet2").Cells = ""
Worksheets("Sheet2").Range("A1") = "X"
'muuta taulukon nimi sopivaksi
With Worksheets("Sheet2")
.Range(.Cells(2, 1), .Cells(UBound(ActiveChart.SeriesCollection(1).Values) 1, 1)) = Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
End With
laskuri = 2
For Each X In ActiveChart.SeriesCollection
'muuta taulukon nimi sopivaksi
Worksheets("Sheet2").Cells(1, laskuri) = X.Name
'muuta taulukon nimi sopivaksi
With Worksheets("Sheet2")
.Range(.Cells(2, laskuri), .Cells(UBound(ActiveChart.SeriesCollection(1).Values) 1, laskuri)) = Application.Transpose(X.Values)
End With
laskuri = laskuri 1
Next
End Sub
Keep EXCELing
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
PÄIVÄN PARAS: Nigerialainen haki turvapaikkaa Suomesta, lähti takas huilaamaan
kotimaahansa, koska turvapaikan saaminen kesti niin kauan. Ja tämän kertoo ihan Yle, eikä yhtään toimittaja kyseenalaist1593927Mikä vasemmistolaisista jankkaavaa vaivaa?
Pahasti on ihon alle, siis korvien väliin sinne tyhjään tilaan, päässeet kummittelemaan. Ei ole terveen ihmisen merkki1013674Ohjelma "Rikollisjengien Ruotsi" hyvin paljasti jakautuneen maan
eli ns. ruotsalaiset yhdellä puolella, muslimit ja muut kehitysmaalaiset toisella puolella. Siinäkin hyvin näki mitä ma423213Pidennetään viikko 8 päiväiseksi
Ja jätetään työpäivien määrä nykyiseen 5:een. Tuo olisi kompromissiratkaisu vellovaan keskusteluun työajan lyhentämisest222547- 1842248
Jos Katja Ståhl ei pääse juontamaan Elämäni biisiä, kenet haluaisit nähdä juontohommissa?
Katja Ståhl on ollut kuluvalla viikolla sairaalahoidossa. Jos Katja Ståhl ei pääse juontamaan Elämäni biisiä, kenet halu271447- 971277
Vähäkankailla ollut ongelmia vuokra-asunnossa
Aina ne ikävätkin asiat tulevat mediaan. Jasmin ja Marko saaneet edellisestä asunnostaan häädöt ja Jasmin todettu varatt1301127Tiesitkö? Tuure ja Saana Boelius ovat sisaruksia!
Tiesitkö? Tuure Boelius ja Saana Boelius ovat tänä syksynä kumpainenkin reality-ohjelmissa tv:ssä: Tuure Petollisissa ja241111Jos elämäsi ihminen
on osoittanut kiinnostuksensa, niin kannattaa vastata edes jotain vaikka mikä olisi. Toista mahdollisuutta ei välttämätt691058