copiare più immagini

Hai un problema con Excel?

Nuova discussione

copiare più immagini
di aledoc (utente non iscritto) data: 29/05/2014 17:15:40
mi allaccio ad una vecchia discussione aperta da me relativa al copiare testo e immagine.
All'epoca il problema era stato risolto egregiamente da Textomb. Ora ho la necessità di copiare più di un'immagine per poterla esportare in un nuovo file, e vorrei, se possibile, indicare una nuova cella in cui posizionare la seconda, terza, ecc. immagine.

In un foglio di verifica ho delle celle che diventano 1 o 0 a seconda di varie impostazioni che decido tramite una userform.
Io vorrei che, a seconda della cella che diventa 1, la macro mi esportasse un determinato range del foglio di partenza e varie immagini.
Allego un file di prova: come celle di verifica ho selezionato le BD1 - BD2 - BD3
Vorrei una macro in grado di esportare il range selezionato in un altro foglio lasciandolo identico.

Grazie a tutti.

If Foglio1.Range("bd1").Value = 1 Then
Dim Osh As Worksheet
    Set Osh = Sheets("output")
    
    Osh.Range("a1", "bb49").Copy
    Workbooks.Add
        
        With Range("a1")
            .PasteSpecial xlPasteAll 'incolla tutto ma non rispetta la larghezza di origine delle colonne
            .PasteSpecial xlPasteValuesAndNumberFormats 'incolla solo i valori e sovrascrive le formule
        End With
        
        Columns("A:bb").Select
    Selection.ColumnWidth = 2
        
        ' Se gli vuoi appiccicare il logo devi inserire solo queste due righe
        Osh.Shapes.Item("Immagine 1").Copy
        ActiveSheet.Range("a2").PasteSpecial xlPasteAll

End If

di aledoc (utente non iscritto) data: 09/06/2014 11:39:36
Nessuno ne ha un'idea?

Vuoi Approfondire?