met VBA waarde ophalen en plaatsen

Cor Fraikin

unread,

Oct 11, 2001, 7:37:17 AM10/11/01

to

Hallo VBA'ers

Het volgende, ik heb een grafiek gemaakt en daar wil ik
met behulp van VBA een waarde uit een werkblad ophalen en
die waarde plaatsen in het tabblad "schaal" (van As
opmaken) onder MinimumSchaal! Is dit mogelijk en zo ja hoe?

Alvast bedankt.

groet Cor

Cor Fraikin

unread,

Oct 11, 2001, 7:37:12 AM10/11/01

to

Ber Visser

unread,

Oct 11, 2001, 8:47:29 AM10/11/01

to

> Het volgende, ik heb een grafiek gemaakt en daar wil ik
> met behulp van VBA een waarde uit een werkblad ophalen en
> die waarde plaatsen in het tabblad "schaal" (van As
> opmaken) onder MinimumSchaal! Is dit mogelijk en zo ja hoe?

Zet je macro recorder aan en doe wat je wilt doen. Bekijk dan de
code.

--
Met vriendelijke groeten,
Ber Visser
viss...@pandora.be

Cor

unread,

Oct 11, 2001, 3:10:53 PM10/11/01

to

>-----Oorspronkelijk bericht-----

>.
>
Hallo Ber,

Ik heb gedaan wat je zei en ben zover gekomen als
hieronder staat. Maar om de waarde die in cel GG1035 staat
te kopiëren naar ".MinimumScale =" is mij niet gelukt.

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 11-10-01 door C.J. Fraikin.
'
'
Range("GG1035").Select
Selection.Copy
Application.Goto Reference:="grafieken"
ActiveSheet.ChartObjects("Grafiek 146").Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.ShowWindow = True
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 99 (handmatig ingebracht)
.MaximumScale = 100
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
End With

Kan je me helpen of adviseren?!

Cor.

Marco Schreuder

unread,

Oct 11, 2001, 5:34:28 PM10/11/01

to

Hallo Cor,

ActiveSheet.ChartObjects("Grafiek 146").Activate
ActiveChart.Axes(xlValue).MinimumScale = Range("GG1035").Value

Vriendelijke groet,
Marco Schreuder http://www.inoffice.nl

"Cor" <se...@planet.nl> wrote in message
news:875901c15288$72cd6da0$19ef2ecf@tkmsftngxa01...

>-----Oorspronkelijk bericht-----
>
>> Het volgende, ik heb een grafiek gemaakt en daar wil ik
>> met behulp van VBA een waarde uit een werkblad ophalen
en
>> die waarde plaatsen in het tabblad "schaal" (van As
>> opmaken) onder MinimumSchaal! Is dit mogelijk en zo ja
hoe?
>
>Zet je macro recorder aan en doe wat je wilt doen. Bekijk
dan de
>code.
>
>--
>Met vriendelijke groeten,
>Ber Visser
>viss...@pandora.be
>
>
>.
>
Hallo Ber,

Ik heb gedaan wat je zei en ben zover gekomen als
hieronder staat. Maar om de waarde die in cel GG1035 staat

te kopiėren naar ".MinimumScale =" is mij niet gelukt.

Marco Schreuder

unread,

Oct 11, 2001, 5:33:42 PM10/11/01

to

Hallo Cor,

ActiveSheet.ChartObjects("Grafiek 146").Activate
ActiveChart.Axes(xlValue).MinimumScale = Range("GG1035").Value

Vriendelijke groet,
Marco Schreuder http://www.inoffice.nl

"Cor" <se...@planet.nl> wrote in message
news:875901c15288$72cd6da0$19ef2ecf@tkmsftngxa01...

>-----Oorspronkelijk bericht-----

>
>> Het volgende, ik heb een grafiek gemaakt en daar wil ik
>> met behulp van VBA een waarde uit een werkblad ophalen
en
>> die waarde plaatsen in het tabblad "schaal" (van As
>> opmaken) onder MinimumSchaal! Is dit mogelijk en zo ja
hoe?
>
>Zet je macro recorder aan en doe wat je wilt doen. Bekijk
dan de
>code.
>
>--
>Met vriendelijke groeten,
>Ber Visser
>viss...@pandora.be
>
>
>.
>
Hallo Ber,

Ik heb gedaan wat je zei en ben zover gekomen als
hieronder staat. Maar om de waarde die in cel GG1035 staat

te kopiėren naar ".MinimumScale =" is mij niet gelukt.

se...@planet.nl

unread,

Oct 12, 2001, 11:22:27 AM10/12/01

to

Hoi Marco,

Werkt prima bedankt!! Ik zou alleen nog willen weten hoe
je verwijst naar een ander blad in dezelfde map.

Groetjes
Cor
>-----Oorspronkelijk bericht-----

>te kopiëren naar ".MinimumScale =" is mij niet gelukt.

>
>Sub Macro1()
>'
>' Macro1 Macro
>' De macro is opgenomen op 11-10-01 door C.J. Fraikin.
>'
>'
> Range("GG1035").Select
> Selection.Copy
> Application.Goto Reference:="grafieken"
> ActiveSheet.ChartObjects("Grafiek 146").Activate
> ActiveChart.ChartArea.Select
> Application.CutCopyMode = False
> ActiveChart.ShowWindow = True
> ActiveChart.Axes(xlValue).Select
> With ActiveChart.Axes(xlValue)
> .MinimumScale = 99 (handmatig ingebracht)
> .MaximumScale = 100
> .MinorUnitIsAuto = True
> .MajorUnitIsAuto = True
> .Crosses = xlAutomatic
> .ReversePlotOrder = False
> .ScaleType = xlLinear
> End With
>
>Kan je me helpen of adviseren?!
>
>Cor.
>
>

>.
>

Marco Schreuder

unread,

Oct 12, 2001, 5:57:37 PM10/12/01

to

Hallo Cor,

Verwijzing naar ander sheet:
ActiveWorkbook.Worksheets("Blad1").Range("A1")

Vriendelijke groet,
Marco Schreuder http://www.inoffice.nl

<se...@planet.nl> wrote in message
news:745d01c15331$b3bac7f0$35ef2ecf@TKMSFTNGXA11...

Cor Fraikin

unread,

Oct 13, 2001, 3:48:41 PM10/13/01

to

Hoi Marco,

Graag nog even je hulp!
Als ik nu de waarde wil ophalen vanuit dat andere blad en
die wil plaatsen in een grafiek die in weer een ander blad
staat. Hoe doe ik dat?
Ik bedoelde dit zojuist ook maar omschreef mijn probleem
niet goed. Sorry!

Groeten
Cor.

>-----Oorspronkelijk bericht-----

>.
>