Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Inserimento dati in un grafico dalla Stampa Unione

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi Anthony47 » 30/12/09 15:33

Ciao tuta,
assumo che ti interessa inviare messaggio e il grafico nel testo della mail e non come allegato per evitare che il ricevente debba avere excel per leggere il messaggio.
Viste le difficolta', ti chiedo se ti puo' interessare una soluzione che invia una immagine (.jpg) che mostra sia le celle di excel che ti interessano e sia il grafico; nella maggioranza dei casi l' immagine viene resa, dal client di posta, in linea col testo quindi si integra anche con un ulteriore testo fisso da inserire.

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Sponsor
 

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi tutamimetica » 30/12/09 18:02

Ho scartato l'allegato, mentre rendere immagine la zona di celle B2:K62 nel corpo della mail, penso sia perfetto. So già che non dovrò scrivere altro.
Io avevo provato a copiare la zona nel corpo della mail. Manualmente è semplice con la macro.....no.
Grazie della disponibilità. tuta
tutamimetica
Utente Senior
 
Post: 209
Iscritto il: 10/06/08 17:25

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi Anthony47 » 31/12/09 19:48

Allora procediamo con l' invio di un allegato tipo jpg che contiene lo screenshot di una parte del foglio excel. Mi pare che l' area che vuoi inviare sia B2:K62; per prima cosa posizionerei il grafico (c' e' anche un grafico, vero?) nei dintorni di questa area, in modo da cogliere sia la parte tabellare che la larte grafica in un unica immagine. Eventualmente valuta l' ipotesi di spostare il tutto in una nuova area, priva di spazi inutili, per rendere l' immagine piu' facilmente fruibile.

Poi creati nel tuo file un nuovo foglio totalmente vuoto, e chiamalo "Scratch".

Creati poi sotto C:\ una directory (es "C:\ESITI" ) destinata a contenere tutte le immagini che creeremo e una directory (es "C:\ESITITX") per le immagini inviate (vorrei evitare il rischio che una mail il cui invio venisse non so per quale motivo ritardata trasmetta un' immagine errata, quindi le immagini saranno tutte memorizzate e le cancellerai successivamente, a mano, quando il processo sai che e' terminato).

Per creare l' immagine del foglio excel useremo il processo descritto qui: viewtopic.php?f=26&t=77792#p441789
Supponiamo che il foglio da "fotografare" si chiami Foglio1.

Abbiamo detto che memorizzeremo tante immagini, quindi dovremo usare il "nominativo" come nome file; supponiamo che il nominativo corrente si trovi in Foglio1-K1 (il nominativo con cui stai filtrando i dati), e che il nominativo non contenga caratteri incompatibili con un nome file (quindi NON CONTENGA crt quali / \ : < > | * ? ' e non so quali altri)

Direi che la seguente macro possa andare bene al tuo caso.

Codice: Seleziona tutto
Sub convertiImm()
'
MySheet="Foglio1"       '<<< Il foglio da "fotografare"
MyArea = "B2:K62"       '<<< La tua area da fotografare
'
Nominat=Sheets("Foglio1").Range("K1").Value    '<<< La cella dove si trova il nominativo "corrente"
'
Sheets(MySheet).activate
Range(MyArea).Select
GifLargh = Selection.Width + 10         '<<<AGGIUNTA
GifAlt = Selection.Height + 10             '<<<AGGIUNTA
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Sheets("Scratch").Select
Dim ch As ChartObject
Set ch = Sheets("Scratch").ChartObjects.Add(1, 1, GifLargh, GifAlt)
Sheets("Scratch").ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.Paste
OutFile="C:\ESITI\ & Nominat & "_ScrSh.jpg"
Worksheets("Scratch").ChartObjects(1) _
.Chart.Export _
Filename:=OutFile, FilterName:="JPEG"
ActiveSheet.ChartObjects(1).Delete
End Sub


Per l' invio della mail userei come base il codice da te postato qui: viewtopic.php?f=26&t=83835#p478406 con qualche adattamento:
Codice: Seleziona tutto
Sub Invioemail()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
'
'  (a)
Set OutApp = CreateObject("Outlook.Application")
'
'compilazione di un testo standard di accompagnamento
BDT = "Ti invio il risultato delle prove effettuate."
BDT = BDT & vbCrLf & "Cordiali saluti" & vbcrLf
BDT = BDT & "Tuta"
'
'  (b)
EmailAddr = "utente@dominio.it"
Subj = "Invio risultati questionario"
'
Set OutMail = OutApp.CreateItem(0)
With OutMail
.to = EmailAddr
.CC = ""
.BCC = ""
.Subject = Subj
.Body = BDT
.Attachments.Add "C:\pippo_uno.jpg"    '<<< VEDI TESTO
.Display 'or use .send
.send
End With
'
'  (c)
Set OutMail = Nothing
'
'  (d)
Set OutApp = Nothing
End Sub

MA DA QUESTO PUNTO IN POI posso solo fare delle considerazioni, non posso cioe' suggerire la macro completa:
1) La macro InviaEmail cosi' come e' (a) apre una sessione di Outlook e crea un BodyText standard non personalizzato, (b) crea una email e la invia, (c) chiude la email corrente, (d) chiude Outlook; queste fasi sono anche identificate sul codice elecato prima.
2) Tu hai gia' sicuramente una macro che fa un ciclo di scansione dei nominativi, filtra per ognuno dei nominativi e prepara i dati personalizzati.

Il mio suggerimento e' che ti crei due macro:
A) la prima fa lo scan dei nomi e crea tutte le immagini; per questo inserirai il codice ConvertiImm all' interno della tua attuale macro. Potrai cosi' anche valutare "a occhio" la correttezza dei dati prodotti.
B) la seconda ripete lo stesso scan dei nomi e invia la mail con l' immagine come allegato. Semplificando alla grande "basta" inserire il codice di InvioEmail all' interno del codice di scan, adattando le istruzioni listate prima; in particolare
>>compili EmaiAddr in funzione del nominativo corrente
>>compili il nome dell' immagine che deve essere allegata; per questo potresti adottare le stesse istruzioni usate per nominare le immagini:
Nominat = Sheets("Foglio1").Range("K1").Value
OutFile = "C:\" & Nominat & "_ScrSh.jpg"

>>Usi OutFile come parametro per la definizione dell' allegato alla mail:
.Attachments.Add OutFile
>> procedi con l' invio mail (il rimanente codice della sezione b e sezione c di InvioEmail)
Consiglio anche di inserire questa fase ulteriore:
>> sposti l' immagine trasmessa dalla directory di partenza (C:\ESITI) alla directory di "inviato" (C\ESITITX), con una istruzione del tipo
Name "C:\ESITI\" & OutFile As "C:\ESITITX\ " & OutFile

-A questo punto ripeti per i nominativi seguenti

Ti confesso che non sono riuscito a aggirare il meccanismo di sicurezza di Outlook, che segnala "Un programma sta tentando di inviare automaticamente la posta elettronica. Consentire l' operazione?"; ricordo che c' e' una sequenza di SendKeys, ma non ho con me nessuna documentazione e dopo un paio di tentativi ho rinunciato; se non l' hai gia' risolto eventualmente ne potremo parlare tra qualche giorno.

Spero che quanto qui scritto ti sia utile.

E buon anno a tutti.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi tutamimetica » 03/01/10 09:15

Ciao Anthony, ho iniziato a lavorarci, ma ho avuto subito delle difficoltà. Nella macro convertiImm() mi da un errore di sintassi nella riga:
OutFile="C:\ESITI\ & Nominat & "_ScrSh.jpg".
Effettivamente ci sono le virgolette che non si chiudono, ho provato in tutti i modi, ma è stato inutile. Inoltre mi segnala di non accettare il trattino basso di "_ScrSh.jpg".
So di essere una "schiappa" con le macro, ma cerco di capire.
Il significato di GifLargh = Selection.Width + 10 e GifAlt = Selection.Height + 10
è quello di dimensionare in larghezza e in lunghezza l'immagine.
Ho capito bene?
Grazie tuta
tutamimetica
Utente Senior
 
Post: 209
Iscritto il: 10/06/08 17:25

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi Anthony47 » 03/01/10 16:23

Ho fatto le prove con altra directory, editando il messaggio mi e' saltata la chiusura stringa, scusami. L' istruzione giusta e' questa: OutFile="C:\ESITI\" & Nominat & "_ScrSh.jpg"

GifLargh e GifAlt servono a dare all' immagine creata la stessa dimensione dell' area selezionata.

L' esecuzione di ConvertiImm dovrebbe crearti tutte le immagini nella directory C:\ESITI.

Un altro errore e' nell' ultima parte del messaggio, tra le "considerazioni", sempre riguardo al calcolo di OutFile: NON OutFile = "C:\" & Nominat & "_ScrSh.jpg" MA (ovviamente?) OutFile = "C:\ESITI\" & Nominat & "_ScrSh.jpg"

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi tutamimetica » 03/01/10 19:03

Ciao Anthony ho appena finito di provare le tue indicazioni nella macro.
Finalmente funziona. Ho creato i file immagine e ho spedito l'allegato.
Sinceramente sono già soddisfatto dei risultati ottenuti grazie alla tua disponibilità e di Flash.
Non sono riuscito a far scaricare la cartella Esiti.
Non capisco dove inserire il comando nella macro.
Inoltre ho operato manualmente perché non ho idea di come fare il ciclo di so come fare lo scan dei nomi.
Ti ripeto sono già soddisfatto del risultato.
Ripeto le due macro per condividere il risultato
Codice: Seleziona tutto
sub convertiImm()
'
MySheet = "Scheda"     '<<< Il foglio da "fotografare"
MyArea = "B2:K62"       '<<< area da fotografare
'
Nominat = Sheets("Scheda").Range("C5").Value  '<<< La cella dove si trova il nominativo "corrente"
'
Sheets(MySheet).Activate
Range(MyArea).Select
GifLargh = Selection.Width + 10         '<<<AGGIUNTA
GifAlt = Selection.Height + 10             '<<<AGGIUNTA
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Sheets("Scratch").Select
Dim ch As ChartObject
Set ch = Sheets("Scratch").ChartObjects.Add(1, 1, GifLargh, GifAlt)
Sheets("Scratch").ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.Paste
OutFile = "C:\ESITI\" & Nominat & "_ScrSh.jpg"
Worksheets("Scratch").ChartObjects(1) _
.Chart.Export _
Filename:=OutFile, FilterName:="JPEG"
ActiveSheet.ChartObjects(1).Delete
End Sub

Sub Invioemail()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
'  (a)
Set OutApp = CreateObject("Outlook.Application")
'
'compilazione di un testo standard di accompagnamento
BDT = "Ti invio il risultato Portfolio per l'orientamento."
BDT = BDT & vbCrLf & "Cordiali saluti" & vbCrLf
BDT = BDT & "Rea"
'
'  (b)
Nominat = Sheets("Scheda").Range("C5").Value
OutFile = "C:\ESITI\" & Nominat & "_ScrSh.jpg"
EmailAddr = Range("h5").Value
Subj = "Invio risultati questionario"
'
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.CC = ""
.BCC = ""
.Subject = Subj
.Attachments.Add OutFile
.Body = BDT
.Display 'or use .send
.send

End With
'
'  (c)
Set OutMail = Nothing
'
'  (d)
Set OutApp = Nothing
End Sub

Vi ringrazio della disponibilità e pazienza.
tuta
tutamimetica
Utente Senior
 
Post: 209
Iscritto il: 10/06/08 17:25

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi Anthony47 » 08/01/10 17:52

Ad uso degli uteti del forum, la macro InviaEmail e' stata finalizzata in questo modo:
Codice: Seleziona tutto
Sub Invioemail()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
'  (a)
Set OutApp = CreateObject("Outlook.Application")
''compilazione di un testo standard di accompagnamento
BDT = "Ti invio il risultato Portfolio per l'orientamento."
BDT = BDT & vbCrLf & "Cordiali saluti" & vbCrLf
BDT = BDT & "Rea"
''  (b)
Nominat = Sheets("Scheda").Range("C5").Value
OutFile = "C:\ESITI\" & Nominat & "_ScrSh.jpg"
EmailAddr = Range("h5").Value
Subj = "Invio risultati questionario"
'
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.CC = ""
.BCC = ""
.Subject = Subj
.Attachments.Add OutFile
.Body = BDT
.Display 'or use .send
'.send
End With
'  (c)
Set OutMail = Nothing
'
'  (d)
Set OutApp = Nothing

    Application.Wait (Now + TimeValue("0:00:04"))
    Application.SendKeys "%a"
    Application.Wait (Now + TimeValue("0:00:04"))
'
'Rename Image files
'Name "C:\ESITI\" & Nominat & "_ScrSh.jpg" As "C:\ESITITX\ " & Nominat & "_ScrSh.jpg"

End Sub

Essa e' stata poi richiamata da un ciclo per inviarla a tutti gli utenti elencati in una colonna del foglio di tuta.

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi maso989 » 17/08/13 14:02

Ciao volevo chiederti una cosa,io ho utilizzato la tua parte di sw per ricavare il printf di una determinata zona del foglio di excel.
Quello che volevo chiederti è possibile caricare quell'immagine salvata in un gruppo di facebook facendo un vero e proprio caricamento immagine?se si mi potresti aiutare? Grazie
maso989
Utente Junior
 
Post: 14
Iscritto il: 17/08/13 13:42

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi Anthony47 » 17/08/13 23:48

Ciao maso989, benvenuto nel forum.
Si puo' provare a realizzare una interazione con InternetExplorer usando le prestazioni della
html object library, corrispondente nel vba alla voce MSHTML (mshtml.tlb).
In genere si tratta di applicazioni su misura, che dipendono fortemente dal codice html della pagina web (e quindi vanno riviste quando tale interfaccai cambia).
Se mi dai un url di riferimento posso provare a realizzare un prototipo (non garantisco pero' sui risultati).
Comunque credo che possano esistere tool sviluppati appositamente per quello che chiedi, magari se fai un google search trovi qualche plugin su misura.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi maso989 » 18/08/13 13:24

Allora questo è il link sulla quale vorrei che fosse pubblicato su fb : https://www.facebook.com/groups/448850368488290/
TI spiego quello che voglio fare è una cagata praticamente è la pagina del fantacalcio mio e dei miei amici ed ho creato un programmino su misura per fare la formazione in 3d con tanto di magliette personalizzate(Lascia stare è una cosa da patiti del fantacalcio capisco chiaramente se mi prendete per matto)...solo che cosi facendo prima facciamo la formazione e con la macro creiamo un img e poi dobbiamo andare su fb e caricare un immagine ed è un po scomodo...se invece premendo il pulsante si potesse semplicemente caricarla su fb sarebbe tutto più veloce...se vuoi posso mandarti una copia del sw per email!
Grazie mille per la disponibilità
maso989
Utente Junior
 
Post: 14
Iscritto il: 17/08/13 13:42

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi maso989 » 18/08/13 17:24

ah e poi un altra cosa che ti volevo chiedere...è sempre possibile tramite macro a seconda del valore che c'è in una cella rendere visibile o meno degli oggetti o dei gruppi di oggetti?
maso989
Utente Junior
 
Post: 14
Iscritto il: 17/08/13 13:42

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi Anthony47 » 18/08/13 22:21

La pagina risulta non disponibile, o non accessibile, con un messaggio che dice:
Sorry, this page isn't available
The link you followed may be broken, or the page may have been removed.

Forse e' disponibile solo agli iscritti?

Quanto alla domanda successiva, "si, credo che si possa fare"; dovresti spiegare di quali oggetti parli e quale sia la cella che comanda.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi Anthony47 » 18/08/13 23:09

Ho guardato nel frattempo il sorgente di una pagina facebook che consente il caricamento immagini, ed e' decisamente fuori dalla portata della combinazione "mie conoscenze" & "strumenti che conosco (la libreria mshtml.tlb)".
Non ritengo quindi di poterti aiutare sul caricamento immagini.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi maso989 » 19/08/13 11:56

ok grazie lo stesso per il caricamento...per quanto riguarda il discorso della visibilità delle immagini...io ho una cella l7 dove è presente un menu a tendina (dove non ho messo direttamente le celle ma una lista tramite la gestione nomi) dove sono presenti i 7 moduli fantacalcistici(es. 3-4-3 , 3-5-2 , 4-4-2 , per un totale di 7)io a secondo del modulo che seleziono vorrei che un determinato grupppo di immagini venisse reso visibile e gli altri 6 gruppi invisibili...praticamente io sul campo ho tutti e 7 i moduli ma a seconda del modulo che scelgo vorrei che solo uno fosse visibile e gli altri no...su internet ho trovato questa parte di codice non so se possa essermi utile o non centrare niente con il mio caso:
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$L$7" Then
        Call mNascondi(Target.Value)
    End If
    End Sub


Private Sub mNascondi(ByVal s As String)

    Dim lRiga As Long
    Dim lng As Long
    Dim sh2 As Worksheet
   
    Set sh2 = ThisWorkbook.Worksheets("Foglio2")
        lRiga = [Modulo].Rows.Count
        For lng = 1 To lRiga
            Me.OLEObjects(sh2.Range("A" & lng).Value).Visible = False
        Next
       
        If Not Len(s) = 0 Then
            Me.OLEObjects(s).Visible = True
        End If
       
    Set sh2 = Nothing
   
End Sub

Grazie mille per il tempo che mi stai dedicando...se questa soluzione è troppo complicata mi potrebbe anche andare bene un semplice menu a tendina che però si possa spostare con il mouse..cioè non un menu a tendina in una cella fissa ma magari all'interno di un oggetto che possa essere trascinato...
maso989
Utente Junior
 
Post: 14
Iscritto il: 17/08/13 13:42

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi maso989 » 19/08/13 14:51

comunque ho provato questo codice ma non va bene per il mio caso perchè questo va bene per attivare un immagine (con controllo activeX) invece io devo attivare o disattivare la visibilità di alcuni gruppi di oggetti(non tutti sono activex ci sono delle immagini normali , delle caselle di testo e delle combo box) unite in un unico gruppo che poi tramite il menu selezione e visibilità ho rinominato a mio parere con i numeri di modulo(es3-4-3,3-5-2,...)
credo che l'istruzione da cambiare sia la seguente:
Codice: Seleziona tutto
Me.OLEObjects(s).Visible = True

sapresti indicarmi qual'è l'istruzione che fa per me?grazie
maso989
Utente Junior
 
Post: 14
Iscritto il: 17/08/13 13:42

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi Anthony47 » 19/08/13 22:02

Per visualizzare o nascondere un' immagine o un raggruppamento userai un' istruzione del tipo
Codice: Seleziona tutto
ActiveSheet.Shapes("NomeImmagine").Visible = True   'oppure = False

Se hai in tutto 7 raggruppamenti di immagini, di cui uno solo va visualizzato, potresti semplicemente creare una macro di Worksheet_Change come questa:
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$L$7" Then
     ActiveSheet.Shapes("NomeGruppo1").Visible =  False
     ActiveSheet.Shapes("NomeGruppo2").Visible =  False
     'ripeti per nascondere anche 3, 4, etc
     ActiveSheet.Shapes("NomeGruppo7").Visible =  False
     'qui le ISTRUZIONI per rendere visibile l' immagine di tuo interesse
End If
End Sub

Quanto all' istruzione per visualizzare l' immagine, la cosa piu' semplice e' che assegni alle immagini gli stessi nomi che visualizzi nella cella L7, per cui l' istruzione sarebbe:
Codice: Seleziona tutto
If Range("L7") <> "" Then ActiveSheet.Shapes(Range("L7").Value).Visible =  True

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi maso989 » 19/08/13 23:29

ok sembra che il codice possa essere quello che fa al caso mio,eseggue tutta la parte dove mette i false ai 7 gruppi solo che si pianta nell'esecuzione del modulo che voglio attivare dando mi questo errore:
errore di runtime '-2147024809(80070057)
Limiti esauriti per l'indice della collezione specificata.

Se premo debug mi evidenzia di giallo questa parte finale di codice nella riga di attivazzione
Codice: Seleziona tutto
If Range("L7") <> "" Then ActiveSheet.Shapes(Range("L7").Value).Visible = True

Mi evidenzia di giallo tutta la parte dopo il then...
Sei troppo gentile grazie!
maso989
Utente Junior
 
Post: 14
Iscritto il: 17/08/13 13:42

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi maso989 » 20/08/13 01:26

No ok ho risolto da solo adesso ci siamo fa quello che voglio solo un ultima cosa:
se io sempre dovessi attivare dei gruppi ma che dipendessero da 2 celle e non più da una in questo caso sempre l7 e s7 e questi 2 abbinati vanno ad attivare un gruppo che ha il nome di l7+s7(es. in l7 ho 3-4-3,3-5-2,4-4-2....mentre in s7 ho 4 possibilità Home,Away,Home cup,Away cup)Se io il gruppo che Voglio attivare lo chiamo "3-4-3Home" posso attivarlo sempre con l'ultima istruzione ma mettendo un andtra le 2 celle?
Codice: Seleziona tutto
'Questo è il tuo originale e funzionante
 If Range("L7") <> "" Then ActiveSheet.Shapes(Range("L7").Value).Visible = True

'Questo quello che intendevo fare ma che cosi non funziona
 If Range("L7") <> "" Then ActiveSheet.Shapes(Range("L7" & "S7").Value).Visible = True
maso989
Utente Junior
 
Post: 14
Iscritto il: 17/08/13 13:42

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi Flash30005 » 20/08/13 08:10

Non ho seguito l'intero topic ma penso tu debba fare così
Codice: Seleziona tutto
If Range("L7") <> "" Then ActiveSheet.Shapes(Range("L7").value & Range("S7").Value).Visible = True


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Inserimento dati in un grafico dalla Stampa Unione

Postdi maso989 » 20/08/13 15:03

Grazie flash adesso funziona tutto perfettamente...l'unica cosa è che non siamo riusciti a fare la condivisione su facebook però per il resto tutto ok!Ho anche provato a cercare su google un tool per condividere in automatico le immagini su fb ma non ho trovato niente di interessante...Grazie a tutti per l'aiuto ciao
maso989
Utente Junior
 
Post: 14
Iscritto il: 17/08/13 13:42

PrecedenteProssimo

Torna a Applicazioni Office Windows


Topic correlati a "Inserimento dati in un grafico dalla Stampa Unione":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti