macro per collegamenti

Hai un problema con Excel?

Nuova discussione

macro per collegamenti
di Carotti (utente non iscritto) data: 13/01/2014 14:46:48
buongiorno,
è possibile associare ad un pulsante di opzione un determinato grafico? esiste un codice macro che permetta di associare a tale pulsante di opzione un grafico?
Vorrei che una volta selezionato uno dei miei pulsanti di opzione si aprisse una pagina dove ho un determinato grafico...

di Grograman (utente non iscritto) data: 13/01/2014 15:45:05

Option Explicit

Sub prima_parte()
  Dim wb As Workbook
  Dim ws As Worksheet, wsC As Chart
  Dim X As Long, y As Long, i As Long
  Dim rngC As Range, cella As Range
  
  Set wb = ThisWorkbook
  Set ws = wb.Worksheets(1)
  
    For Each wsC In wb.Charts
      Application.DisplayAlerts = 0
      If wsC.Name = "Il mio Grafico" Then wsC.Delete
      Application.DisplayAlerts = 1
    Next wsC
    
    With ws
      X = .Range("A" & .Rows.Count).End(xlUp).Row
      Set rngC = .Range("A6:B" & X)
    End With
    
    Set wsC = wb.Charts.Add
    With wsC
      .ChartType = xlRadar
      .SetSourceData Source:=rngC
      .Name = "Il mio Grafico"
      .Legend.Delete
      .HasAxis(xlValue) = True
      With .Axes(xlValue)
        .TickLabelPosition = xlNone
        .MinimumScale = 0
        .MaximumScale = 250
      End With
    End With
    
    ws.Select
    Set wb = Nothing
    Set ws = Nothing
    Set wsC = Nothing
End Sub

di Carotti (utente non iscritto) data: 13/01/2014 17:58:38
nel codice basta inserire il nome del mio grafico dove vi è scritto "il mio grafico" e tutto funziona? esempio ho un grafico a torta chiamato "Grafico 2" quindi inserisco "Grafico 2" nel codice?
di Carotti (utente non iscritto) data: 13/01/2014 18:13:52
Ho provato ad usarlo il codice...ma si crea un grafico...io ho già i grafici fatti e vorrei associarli ai pulsanti di opzione...quale sarebbe il codice da assegnare ai pulsanti di opzione?
di patel data: 14/01/2014 09:11:30
allega un file di esempio con 3 grafici, sarà più facile capire e risponderti
di Carotti (utente non iscritto) data: 14/01/2014 15:15:10
ho allegato un file...
in una pagina vi sono i pulsanti, nelle altre i grafici....ciò che vorrei fare è assegnare al pulsante un codice macro tale che mi permetta di visualizzare il grafico...
di patel data: 14/01/2014 16:05:02
abbina ai pulsanti le seguenti macro, vedi allegato
Sub Pulsantediopzione1_Click() Sheets("graf 1").Select End Sub Sub Pulsantediopzione2_Click() Sheets("graf 2").Select End Sub
di Carotti (utente non iscritto) data: 14/01/2014 17:36:49
Grazie

Vuoi Approfondire?