Sviluppare funzionalita su Microsoft Office con VBA Spostare un immagine all' interno del foglio di lavoro

LoginRegistrati
Stai vedendo 20 articoli - dal 1 a 20 (di 20 totali)
  • Autore
    Articoli
  • #30672 Risposta

    hackman
    Partecipante

      Salve qualcuno mi puo aiutare a creare una macro che mi permetta di spostare delle immagine all' interno di un foglio da un range di celle ad un altro?

      Mi spiego meglio ho l' immagine nelle celle "b16:y26"  e la voglio spostare  in "ab45:bs45"

      #30673 Risposta
      patel
      patel
      Moderatore
        42 pts

        prova questa

        Sub muovi()
        With ActiveSheet.Shapes("nomeimmagine")
          .Left = range("ab45).Left 
          .Top = range("ab45").Top 
        End With
        End Sub
        #30674 Risposta

        hackman
        Partecipante

          invece del nome immagine posso impostare il range di celle

           

          #30679 Risposta
          patel
          patel
          Moderatore
            42 pts

            L'immagine non è ancorata al range, conta soltanto l'angolo superiore sinistro, comunque cliccando sull'immagine ti compare il nome del tipo Picture N, se non riesci allega un file di esempio

            #30680 Risposta

            hackman
            Partecipante

              l' immagine cambia di volta in volta quindi anche il nome percio volevo sapere se era possibile inserire il range di celle

              #30692 Risposta
              patel
              patel
              Moderatore
                42 pts

                Ti ho già detto che non è possibile, ma se l'immagine è una sola si può trovare, aspetto il file di esempio

                #30695 Risposta

                hackman
                Partecipante

                  ecco il file all' interno trovi la spiegazione dettagliata

                  Allegati:
                  You must be logged in to view attached files.
                  #30710 Risposta
                  patel
                  patel
                  Moderatore
                    42 pts

                    Nel tuo foglio ci sono più immagini con lo stesso nome e questo non va bene, per spostare la picture 172 dal blocco 1 al 3 puoi usare questa

                    Sub muovi1_3()
                    With ActiveSheet.Shapes("Picture 172")
                      .Left = Range("cq7").Left
                      .Top = Range("cq7").Top
                    End With
                    End Sub
                    #30711 Risposta
                    patel
                    patel
                    Moderatore
                      42 pts

                      oppure, senza conoscere il nome della picture

                      Sub Move1_3()
                          For Each shp In ActiveSheet.Shapes
                              ad = shp.TopLeftCell.Address
                              If ad = "$C$7" Then
                                  shp.Left = Range("cq7").Left
                                  shp.Top = Range("cq7").Top
                                  Exit For
                              End If
                          Next
                      
                      End Sub
                      #30712 Risposta

                      hackman
                      Partecipante

                        ho capito quello che di ci tu ma in excel esistono due formati io utilizzerò picture no immagine

                        #30713 Risposta

                        hackman
                        Partecipante

                          patel ha scritto:

                          oppure, senza conoscere il nome della picture

                          questa funziona ma se cambi immagine dopo non funziona piu

                          #30714 Risposta
                          patel
                          patel
                          Moderatore
                            42 pts

                            Non ti capisco

                            #30715 Risposta

                            hackman
                            Partecipante

                              patel ha scritto:

                              Non ti capisco

                              HO PROVATO LA TUA FORMULA FUNZIONA, SOLO CHE QUANDO SOSTITUISCO LE IMMAGINI ALL'INTERNI DEL FILE NON FUNZIONA PIU'.

                               

                              #30721 Risposta
                              patel
                              patel
                              Moderatore
                                42 pts

                                è inutile dire non funziona se non mi alleghi il file non funzionante

                                #30733 Risposta
                                rollis13
                                rollis13
                                Partecipante
                                  3 pts
                                  #30734 Risposta
                                  Marius44
                                  Marius44
                                  Moderatore
                                    35 pts

                                    Ciao @rollis13

                                    Rolando, grazie per la segnalazione (l'avevo visto) ma in questo Forum c'è mOOOOOOOlta tolleranza.

                                     

                                    Ciao,

                                    Mario

                                    #30735 Risposta
                                    rollis13
                                    rollis13
                                    Partecipante
                                      3 pts

                                      Per me non è un problema di tolleranza , era solo che mi seccava lasciare sprecato il 'lavoro' che avevo fatto 'altrove' senza essere prima passato per di qua .

                                      #30740 Risposta
                                      patel
                                      patel
                                      Moderatore
                                        42 pts

                                        Su questa discussione parla di spostare, sull'altra di copiare .....

                                        #30742 Risposta

                                        hackman
                                        Partecipante

                                          infatti confermo quello che dice patel

                                          #30743 Risposta
                                          rollis13
                                          rollis13
                                          Partecipante
                                            3 pts

                                            La sostanza in pratica è la stessa, fare solo un:

                                            .Copy / .PasteSpecial

                                            oppure un:

                                            .Copy / .PasteSpecial / .Delete 

                                            dato che il .Cut fa perdere il riferimento, sempre un .Picture stiamo gestendo. Vabbé, per me non è un problema.

                                          LoginRegistrati
                                          Stai vedendo 20 articoli - dal 1 a 20 (di 20 totali)
                                          Rispondi a: Spostare un immagine all' interno del foglio di lavoro
                                          Gli allegati sono permessi solo ad utenti REGISTRATI
                                          Le tue informazioni:



                                          vecchio frac - 2750 risposte

                                          patel
                                          patel - 1073 risposte

                                          albatros54
                                          albatros54 - 1058 risposte

                                          Marius44
                                          Marius44 - 970 risposte

                                          Luca73
                                          Luca73 - 766 risposte