Spostare un immagine all' interno del foglio di lavoro

[hackmanPartecipante hackman]

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"

[patelModeratore patel Karma: 50 pts]

prova questa

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

[hackmanPartecipante hackman]

invece del nome immagine posso impostare il range di celle

 

[patelModeratore patel Karma: 50 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

[hackmanPartecipante hackman]

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

[patelModeratore patel Karma: 50 pts]

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

[hackmanPartecipante hackman]

ecco il file all' interno trovi la spiegazione dettagliata

Allegati:

You must be logged in to view attached files.

[patelModeratore patel Karma: 50 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

[patelModeratore patel Karma: 50 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

[hackmanPartecipante hackman]

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

[hackmanPartecipante hackman]

patel ha scritto:

oppure, senza conoscere il nome della picture

questa funziona ma se cambi immagine dopo non funziona piu

[patelModeratore patel Karma: 50 pts]

Non ti capisco

[hackmanPartecipante hackman]

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'.

 

[patelModeratore patel Karma: 50 pts]

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

[rollis13Partecipante rollis13 Karma: 7 pts]

Solo per segnalare link di cross-post mancante: Domanda - MsgBox + Copiare immagini da una range di celle ad un altro | ForumExcel.it

[Marius44Moderatore Marius44 Karma: 52 pts]

Ciao @rollis13

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

 

Ciao,

Mario

[rollis13Partecipante rollis13 Karma: 7 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 .

[patelModeratore patel Karma: 50 pts]

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

[hackmanPartecipante hackman]

infatti confermo quello che dice patel

[rollis13Partecipante rollis13 Karma: 7 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.

[Autore]

Articoli