Tiedon palautus graafeista

18+15

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

3

226

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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.

    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. S-kauppa nosti hintoja, K-kauppa laski

      Elintarvikkeiden arvonlisävero laski vuodenvaihteessa 13,5 prosenttiin. S-kauppa siirsi alennuksen suoraan katteisiin pi
      Maailman menoa
      165
      7562

    2. Hiihtäjä Vilma Nissisen kommentit aiheutti paniikkia

      ja hernettä vedettiin nenään. Nissinen kertoi torstaina haastattelussa, kun häneltä kysyttiin, että tykkääkö hän hiihtä
      Maailman menoa
      130
      5189

    3. Huuto yltyy persujen piirissä Venezuelan johdosta.

      Kohta kakofonia yltyy kun persut tajuavat mitä Venezuelassa tapahtui. Von den Leydenki jo kipuilee kuten persut EU:ssa y
      Maailman menoa
      43
      2680

    4. Koska mennään retkeilemään?

      pusi pusi 😗
      Ikävä
      271
      2308

    5. Nyt ottaa persua pattiin: sähköauto joulukuun myydyin

      🤣 prööt prööt pakoputkellaan pörisevää persua ottaa nyt saamaristi pattiin, kun paristoilla kulkeva sähköauto on noussu
      Maailman menoa
      81
      2218

    6. Ovatko Perussuomalaiset kommunisteja?

      Toiset sanovat että ovat, toiset sanovat että eivät. Ainakin heillä on paljon sen aatteen piirteitä, koska haluavat kont
      Maailman menoa
      67
      2078

    7. Yhdysvaltain hyökkäys Venezuelaan on YK:n peruskirjan mukaan laiton hyökkäyssota

      Oman sävynsä tähän tuo vielä se, että hyökkäys kohdistettiin nimenomaan valtiojohtoa vastaan. Toki, kun tavoitteena on v
      Maailman menoa
      567
      2065

    8. Ei tule uni

      Kuten epäilin. Onneksi viime yön sain ihan hyvin nukutuksi. Tiesin kyllä, ettei tästä mitään tänään tule.
      Ikävä
      57
      1126

    9. Miksi juuri Venezuela?

      Kaikista maailman valtioista Trump otti silmätikukseen Venezuelan. Mutta minkä ihmeen takia? Kyseessä on kuitenkin vähäp
      Maailman menoa
      291
      1077

    10. Laittaisin whatsuppissa viestin

      Jos olisin täysin varma että se on toivottua vielä kun aikaa on mennyt ja että toivot sitä edelleen.
      Ikävä
      66
      1065
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt