Forum di Excel e VBA, per condividere esperienze e risolvere problemi su: Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Grafico in UserForm di Alex (utente non iscritto) data: 12/12/2016 00:59:42
Salve a tutti
Qualcuno mi sa dire se è possibile vedere un grafico in UserForm
Ho allegato un File di prova
Grazie!!!!
di Marius44 data: 12/12/2016 06:03:42
Ciao Alex
Poichè non mi fa scrivere l'indirizzo ti riporto quanto scritto da Mauro Gamberini in una vecchia discussione
Private Sub UserForm_activate()
Application.ScreenUpdating = False
Dim ana As String
Dim C1 As Chart, c2 As Chart, n1 As String, n2 As String
Set C1 = Sheets("foglio1").ChartObjects(1).Chart
Worksheets("foglio1").ChartObjects("Grafico 3").Activate
n1 = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
C1.Export Filename:=n1, FilterName:="GIF"
Image1.Picture = LoadPicture(n1)
'Worksheets("foglio1").Visible = False
Worksheets("Foglio2").Activate
range("d37").select
End Sub
DOMANDA!!! Un volta che mi compare il grafico nella userform, ricavato
da dati presenti nel foglio1, attivo il foglio2 ma non riesco ad
attivare nessuna cella. Invece dovrei fare dei cambiamenti e veder,
sempre nella userform come cambia il grafico
ciao e grazie per la vostra pazienza!!
Mostra la UserForm così:
NomeUserForm.Show vbModeless
e dai un'occhiatina nella guida del
vb di Excel a: Metodo Show
Fai sapere. Ciao,
Mario
di Alex (utente non iscritto) data: 12/12/2016 13:17:57
Ciao Marino
La macro è perfetta , per modificare i dati , devi mettere alla fine della macro (Call UserForm_activate) per attivare i cambiamenti , mentre (Application.ScreenUpdating = True) se vuoi vedere cambiare le modifiche nel foglio