MACRO to build a graph - y axis not shown

valentina_putrino

New Member
Joined
Jun 4, 2019
Messages
6
Hi all
I managed to create a macro to build a graph which updates each time the lenght of the columns change.
When I try to put the name of the horizontal axis, it work. When I try to do the same with the vertical axis it doesn't.
Anyone willing to help?
I am very grateful

Thanks a lot
valentina
 

Some videos you may like

Excel Facts

Ambidextrous Undo
Undo last command with Ctrl+Z or Alt+Backspace. If you use the Undo icon in the QAT, open the drop-down arrow to undo up to 100 steps.

valentina_putrino

New Member
Joined
Jun 4, 2019
Messages
6
Dear Lavina - yes thanks

Sub graphJ()
'
' graphJ Macro
'
Dim i As Integer
i = Cells(53, 55).Value
Range(Cells(3, 52), Cells(i, 53)).Select
ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select
ActiveChart.SetSourceData Source:=Range(Cells(3, 52), Cells(i, 53))
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = "=""FLOD"""
ActiveChart.FullSeriesCollection(2).Name = "=""MIN"""
ActiveChart.FullSeriesCollection(2).XValues = Cells(3, 56)
ActiveChart.FullSeriesCollection(2).Values = Cells(3, 55)
ActiveChart.ChartTitle.Text = "Flood Mechanism"
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
Selection.Format.TextFrame2.TextRange.Characters.Text = "AA"
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
ActiveChart.SetElement (msoElementLegendBottom)
ActiveChart.FullSeriesCollection(2).Points(1).Select
With Selection
.MarkerStyle = -4142
.MarkerSize = 5
End With
Selection.MarkerStyle = 2
Range("BG5").Select
'
End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,102,778
Messages
5,488,828
Members
407,658
Latest member
Arias610

This Week's Hot Topics

  • Timer in VBA - Stop, Start, Pause and Reset
    [CODE=vba][/CODE] Option Explicit Dim CmdStop As Boolean Dim Paused As Boolean Dim Start Dim TimerValue As Date Dim pausedTime As Date Sub...
  • how to updates multiple rows in muliselect listbox
    Hello everyone. I need help with below code. code is only chaning 1st row in mulitiselect list box. i know issue with code...
  • Delete Row from Table
    I am trying to delete a row from a table using VBA using a named range to find what I need to delete. My Range is finding the right cell. In the...
  • Assigning to a variable
    I have a for each block where I want to assign the value in column 5 of the found row to the variable Serv. [CODE=vba] For Each ws In...
  • Way to verify information
    Hi All, I don't know what to call this formula, and therefore can't search. I have a spreadsheet with information I want to reference...
  • Active Cell Address – Inactive Sheet
    How to use VBA to get the cell address of the active cell in an inactive worksheet and then place that cell address in a location on the current...
Top