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
215
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
Moikka rakas
Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa7017623Mitä tapahtunut
Poliiseja monta autoa+panssariauto Porista kpäähän päin tänään klo n.20 kuka hurjistunut ?445404HS: Kuka vielä uskaltaa mennä sairaalan ensiapuun?
https://www.hs.fi/mielipide/art-2000011212025.html Tässä on hyvin ajankohtainen mielipidekirjoitus koskien Malmin sairaa3042940Lakea konkurssiin. Asukkaat menettävät asuntonsa
Kuntarahoitus on tänään jättänyt konkurssihakemuksen lakean kaikista kiinteistö osakeyhtiöistä. Kassa on tyhjä, kaikki432535- 1712403
- 241894
Nikkalassa vauhdilla nokka kohti taivasta
Mitähän Darwin sanoisi näistä 4 suomalaisesta, jotka kävivät Haparandan puolella näyttämässä, kuinka Suomi auto kulkee t81839mahdollista, että olet ollut iltavuorossa
Ja kotiin päästyäsi tulit palstalle etsimään merkkiä minusta, jos kaipaat yhtään minua niin kuin minä sinua Ei mennyt k121722Ökyrikas Kurkilahti mussuttaa veroistaan
Pakeni aikoinaan veroja Portugaliin mutta joutui palaamaan takaisin kun Suomi teki verotussopimuksen Portugalin kanssa.1401718Yhdysvalloissa työllisyys paranee, Suomessa työttömyys kasvaa, missä vika?
Miten tämä on mahdollista että 177 000 uutta työllistä tuli USAssa yhdessä kuukaudessa, vaikka Trump on ruorissa? Orpon4111638