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
210
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
Saako kaunis ihminen parempaa kohtelua?
Onko kauniin ihmisen elämä "helpompaa" kuin tavallisen näköisen ihmisen? Olen kuullut väittämän, että kaunis ihminen saa1233500- 122316
En rehellisesti usko et oisit
Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos371945Suomennettua: professori Jeffrey Sachs avaa Ukrainan sodan taustat luennollaan EU parlamentissa
Jeffrey Sachs on yhdysvaltalainen ekonomisti. Sachs toimii Columbian yliopiston The Earth Instituten johtajana. Aiemmin4141899Näin sinusta taas unta!
Unessa olin pakahtuneesti rakastunut sinuun. Olimme vanhassa talossa jossa oli yläkerran huoneissa pyöreät ikkunat. Pöly211701Nainen, olet jotenkin lumoava
Katselen kauneuttasi kuin kuuta, sen loistoa pimeässä. Sen kaunis valo on kaunista sekä herkkää ja lumoavaa. Olet naisel681527Paljonko aikaa on kulunut siitä kun viimeksi tapasit hänet?
Päiviä? Viikkoja? Kuukausia? Vuosia?301463- 1241418
En muuttaisi sinusta mitään
Ensin olit etäinen ja yritin pysyä tutkan alapuolella. Mutta ei silmiltäsi jää mitään huomaamatta, kuten minulla ei kuul101291- 141236