Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 30 di 33

Discussione: Macro foto



  1. #1
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Macro foto

    Buongiorno a tutti
    Quesito: come posso far comparire una foto nella esecuzione di una macro? Mi spiego meglio: ho una macro che funziona perfettamente vorrei che alla fine della sua esecuzione mi comparisse una foto. Cosa dovrei aggiungere a questa macro. Grazie anticipatamente.

  2. #2
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1123
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Macro foto

    allega il file spiegando dove vuoi l'immagine, da dove la vuoi prendere ecc...

  3. #3
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Macro foto

    Grazie patel
    Ti allego la macro, la foto si trova in una cartella, e mi deve comparire sul foglio Excel che uso, dopo l'esecuzione della macro diciamo per 10 secondi. Grazie
    File Allegati File Allegati

  4. #4
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Macro foto

    Scusami patel l'esempio che mi hai fatto andrebbe benissimo, ma non mi fa incollare l'immagine sul foglio. Come mai?

  5. #5
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1123
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Macro foto

    io ho chiesto il file excel per testare la macro che ti propongo

  6. #6
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1123
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Macro foto

    Citazione Originariamente Scritto da roky48 Visualizza Messaggio
    Scusami patel l'esempio che mi hai fatto andrebbe benissimo, ma non mi fa incollare l'immagine sul foglio. Come mai?
    avevo travisato le tue parole, tu hai parlato di fine esecuzione macro e non di chiusura del foglio, per questo ho corretto la mia risposta

  7. #7
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Macro foto

    Ti allego il file
    File Allegati File Allegati

  8. #8
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Macro foto

    Sono riuscito a mettere l'immagine sul foglio, ma vorrei che mi comparisse dopo l'esecuzione della macro Vincitore, dopo che viene evidenziato in rosso il nome. Grazie

  9. #9
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1123
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Macro foto

    prova il file allegato
    File Allegati File Allegati

  10. #10
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Macro foto

    Perfetto patel GRAZIE infinite. Lo posto come risolto.

  11. #11
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Macro foto

    Scusami patel non riesco a capire come hai messo Immagine 1

  12. #12
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Macro foto

    Scusatemi tutti mi rivolgo a Patel che mi ha risolo il problema, ma non riesco a capire come ha inserito Immagine 1. Grazie

  13. #13
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1123
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Macro foto

    perchÚ hai aperto un'altra discussione ? l'immagine l'ho inserita da Inserisci immagine, poi l'ho nascosta con la sub Nascondi

  14. #14
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Macro foto

    Scusami patel ho inserito la foto, ma quando attivo la macro, mi da errore in nascondi. Ti allego il file con l'immagine che vorrei. Gazie

  15. #15
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1123
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Macro foto

    quando insrisci la foto devi controllare il suo nome e modificare le macro di conseguenza oppure modificare il nome dell'immagine. Hai tolto la mia ?
    se non riesci riallega il file con la foto visibile

  16. #16
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Macro foto

    Ciao patel, non riesco, ti allego il file con l'immagine visibile. Grazie
    File Allegati File Allegati

  17. #17
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Macro foto

    Ciao patel, non riesco, ti allego il file con l'immagine che vorrei. Grazie
    File Allegati File Allegati

  18. #18

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    7183
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2067
    Likes dati
    1308

    Re: Macro foto

    Ciao Roky,
    non serve aprire un'altra discussione per proseguire sullo stesso argomento ... le ho riunite.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  19. #19
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Macro foto

    OK grazie ges

  20. #20
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1123
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Macro foto

    allego il file
    File Allegati File Allegati

  21. #21
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Torino
    EtÓ
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: Macro foto

    Ciao Roky48 Ahora io non vorrei Offendere nessuno, ma penso che si faccia un pochino di cagnara per nulla, in quanto il Problema e ben presto risolto facendo semplicemente in questo modo.
    Tu puoi aprire un Userform e inserire al suo interno questo codice.

    Codice: 
    Option Explicit
    Option Base 1
    Dim X As Byte
    Dim intSegno
    'Dim strnomefoto
    Dim MySegno As Long
    Dim strnomefoto, Cartella As String
    Dim Foto1, Foto2, Foto3, Foto4, Foto5, Foto6, Foto7, Foto8, Foto9, Foto10, Foto11, Foto12
    
    
    Private Sub CommandButton1_Click()
    On Error Resume Next
    
    
    Me.TextBox1.Text = lbSegni.ListIndex + 1
    
    
    If Me.TextBox1.Text = 1 Then
    intSegno = 1 ' Foto1
    
    ElseIf Me.TextBox1.Text = 2 Then
    intSegno = 2 ' Foto2
    
    
    ElseIf Me.TextBox1.Text = 3 Then
    intSegno = 3 ' Foto3
    
    
    ElseIf Me.TextBox1.Text = 4 Then
    intSegno = 4 ' Foto4
    
    
    ElseIf Me.TextBox1.Text = 5 Then
    intSegno = 5 ' Foto5
    
    
    ElseIf Me.TextBox1.Text = 6 Then
    intSegno = 6 ' Foto6
    
    
    ElseIf Me.TextBox1.Text = 7 Then
    intSegno = 7 ' Foto7
    
    
    ElseIf Me.TextBox1.Text = 8 Then
    intSegno = 8 ' Foto8
    
    
    ElseIf Me.TextBox1.Text = 9 Then
    intSegno = 9 ' Foto9
    
    
    ElseIf Me.TextBox1.Text = 10 Then
    intSegno = 10 ' Foto10
    
    
    ElseIf Me.TextBox1.Text = 11 Then
    intSegno = 11 ' Foto11
    
    
    ElseIf Me.TextBox1.Text = 12 Then
    intSegno = 12 ' Foto12
    End If
    
    
    'Visualizza ed Elimina L'immagine di Partenza
    'UserForm1.Image1.Visible = True
    
    
    'Trova e Visualizza L'immagine Desiderata
    lbSegni.ListIndex = intSegno - 1
    
    
    strnomefoto = Choose(intSegno, "Foto1", "Foto2", "Foto3", "Foto4", "Foto5", "Foto6", "Foto7", "Foto8", "Foto9", "Foto10", "Foto11", "Foto12") & ".jpg"
    Cartella = ActiveWorkbook.Path
    Set Me.Image1.Picture = LoadPicture(Cartella & "\Immagini\" & strnomefoto)
    'Set Me.PicFotoSegno.Picture = LoadPicture(Cartella & "\OggettiTombola\" & strnomefoto)
    'Temporizzatore Locale Per Dare la sensazione Di Tempo _
    per la Ricerca
    'Application.Wait (VBA.Now + TimeValue("0:00:03"))
    'UserForm1.Image1.Visible = False
    End Sub
    
    
    Private Sub CommandButton2_Click()
    On Error Resume Next
    End
    End Sub
    
    
    Private Sub OptionButton1_Click()
    On Error Resume Next
    'Ingrandisce sia L' UserForm che la PictureBox
    Me.Image1.Height = Me.Image1.Height * 2
    Me.Image1.Width = Me.Image1.Height
    
    Me.Height = Me.Height * 2
    Me.Width = Me.Height
    End Sub
    
    
    Private Sub OptionButton2_Click()
    On Error Resume Next
    'Diminuisce sia L' UserForm che la PictureBox
    Me.Image1.Height = Me.Image1.Height / 2
    Me.Image1.Width = Me.Image1.Height
    
    
    Me.Height = 216.6
    Me.Width = 337.2
    End Sub
    
    
    Private Sub UserForm_Initialize()
    On Error Resume Next
    UserForm1.lbSegni.AddItem "Foto1"
    UserForm1.lbSegni.AddItem "Foto2"
    UserForm1.lbSegni.AddItem "Foto3"
    UserForm1.lbSegni.AddItem "Foto4"
    UserForm1.lbSegni.AddItem "Foto5"
    UserForm1.lbSegni.AddItem "Foto6"
    UserForm1.lbSegni.AddItem "Foto7"
    UserForm1.lbSegni.AddItem "Foto8"
    UserForm1.lbSegni.AddItem "Foto9"
    UserForm1.lbSegni.AddItem "Foto10"
    UserForm1.lbSegni.AddItem "Foto11"
    UserForm1.lbSegni.AddItem "Foto12"
    End Sub
    1 ) Dopo di che se vuoi dare un Breve asso di tempo dal trÓ una immagine e l'altra non devi fare altro che togliere il segno di spunta che c'Ŕ all'inizio del Codice segnato in Rosso al resto pensa tutto il programma.
    2 ) Poi Presumo che tu non voglia vedere ho avere nessun pulsante che richiami l'userform tra i piedi , per qui all'interno della tua Macro principale andando nella parte Bassa puoi Scrivere questo :Application.Wait (VBA.Now + TimeValue("0:00:05"))
    e poi Userform1.show e il gioco e fatto.
    3 ) poi sempre che ti possa piacere il tutto : puoi Ripetere dinuovo il codice :
    Application.Wait (VBA.Now + TimeValue("0:00:03"))
    e successivamente Scrivere "Unload me" oppure "Unload Userform1" o meglio ancora pi¨ Semplicemente "End"
    Cosi facendo si chiude del tutto dopo un tot di Secondi Voluto da te.

    (P.s) Premetto che questo codice e stato creato per un Contesto di 12 Immagini , tu lo puoi usare riducendo il tutto ad una sola Immagine.
    In pi¨ non dimenticare di inserire all'interno della tua Cartella di Lavoro , un altra Cartella che chiamerai (Immagini) e li dentro dovrai inserire a sua volta le tue foto del Cuore.
    Dopo di che le dovrai Nominare come le ho rinominate io e anche qui il gioco e Fatto , Ciao e fammi Sapere
    Ultima modifica fatta da:cromagno; 10/05/16 alle 03:04 Motivo: Inserito codice tra i tag CODE...

  22. #22
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Macro foto

    Ciao Maurizio, ti ringrazio per la sollecitudine e la esaudiente spiegazione. Ho eseguito alla lettera il tuo suggerimento, ma quando eseguo la macro mi compare errore:

    Codice: 
    Private Sub UserForm_Initialize()
    On Error Resume Next
    UserForm1.lbSegni.AddItem "Foto1" ( lbSegni )
    dove sbaglio? Grazie
    Ultima modifica fatta da:cromagno; 10/05/16 alle 03:05 Motivo: Inserito codice tra i tag CODE...

  23. #23
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Macro foto

    Errore di compilazione
    Impossibile trovare il metodo o il membro dei dati

    Private Sub UserForm_Initialize()
    On Error Resume Next
    UserForm1.lbSegni.AddItem "Foto1"

    evidenziando come errore: lbSegni

  24. #24
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1123
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Macro foto

    Maurizio ha forse dimenticato di allegare il file, tutto quel codice senza il file con la userform Ŕ inutile per un principiante.

  25. #25
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Macro foto

    Ciao patel, condivido con te, e per quanto riguarda il tuo aiuto, funziona benissimo, ma quando inserisco l'immagine con il codice che mi hai dato, all'esecuzione della macro mi da errore:

    With ActiveSheet.Shapes("Immagine2")

    come mai?

  26. #26
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1123
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Macro foto

    il nome dell'immagine cambia ogni volta che ne inserisci una nuova, quindi hai 2 alternative
    1) modifichi il nome dell'immagine in accordo con la macro
    2) modifichi la macro in accordo col nome dell'immagine

  27. #27
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Macro foto

    Scusami patel non so pi¨ che pesci prendere. Ti spiego la procedura che ho fatto: ho preso una immagine e l'ho portata sul desktop, l'ho nominata Immagine2, dopo di che ho aperto il file dove vorrei che comparisse e con inserisci immagine l'ho messa. Ho inserito la macro che mi hai fatto e che sul tuo esempio gira benissimo, ma quando eseguo la macro mi viene sempre errore:

    With ActiveSheet.Shapes("Immagine2")

    non so pi¨ che fare ..... credimi ........ comunque grazie per l'aiuto.

    P.S. non posso allegarti il file perchŔ grande e non me lo permette

  28. #28
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Torino
    EtÓ
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: Macro foto

    Ciao Roky48 Questa volta ti invio l'intero Programma , per˛ essendo un pochino Grande come file , non posso inserirlo usando il Forum ma con un mio Link che e questo :
    https://app.box.com/s/2ibd8ih75c8vds615ni48vek0k4ofgw7
    Segui solo le indicazioni che ti avevo indicato Ieri e il gioco e fatto Ciao e fammi Sapere .
    Maurizio

  29. #29
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Bari
    EtÓ
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Macro foto

    OK grazie Maurizio, l'ho scaricato e ti faccio sapere.

  30. #30
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1123
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Macro foto

    Citazione Originariamente Scritto da roky48 Visualizza Messaggio
    Scusami patel non so pi¨ che pesci prendere. Ti spiego la procedura che ho fatto: ho preso una immagine e l'ho portata sul desktop, l'ho nominata Immagine2, dopo di che ho aperto il file dove vorrei che comparisse e con inserisci immagine l'ho messa. Ho inserito la macro che mi hai fatto e che sul tuo esempio gira benissimo, ma quando eseguo la macro mi viene sempre errore:

    With ActiveSheet.Shapes("Immagine2")

    non so pi¨ che fare ..... credimi ........ comunque grazie per l'aiuto.

    P.S. non posso allegarti il file perchŔ grande e non me lo permette
    tu NON devi rinominare il file dell'immagine sul desktop, la devi inserire nel foglio excel, la selezioni e poi cambi il nome che vedi nella finestrella in alto a sinistra (dove di solito vedi l'indirizzo della cella selezionata)

Discussioni Simili

  1. [Risolto] inserire foto
    Di ste75v nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 18/03/17, 10:05
  2. test foto
    Di Andrea_Ra nel forum Test dei vostri post
    Risposte: 1
    Ultimo Messaggio: 09/02/16, 14:17
  3. zippare pi¨ foto
    Di ste75v nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 12/01/16, 12:47
  4. foto 3
    Di Gerardo ZuccalÓ nel forum Test dei vostri post
    Risposte: 6
    Ultimo Messaggio: 18/06/15, 11:04
  5. prova foto
    Di Gerardo ZuccalÓ nel forum Test dei vostri post
    Risposte: 0
    Ultimo Messaggio: 14/06/15, 18:24

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •