Risultati da 1 a 12 di 12

Discussione: Inserimento righe tra immagini



  1. #1

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    63
    Messaggi
    4871
    Versione Office
    2007 - 2013
    Utile ricevuti
    537
    Utile dati
    93

    Inserimento righe tra immagini

    Nel file allegato ho un certo numero di immagini posizionate in colonna A

    la mia esigenza Ŕ quella di inserire una riga tra un immagine e l'altra (ovviamente le immagini sono impostate a "Sposta ma non ridimensiona alle celle")

    Con questa macro

    Codice: 
    Sub SubInserisciRighe()
    Dim i As Integer
    'For i = 3 To ..... Step 2    <======
        Range("A" & i).Select
        Selection.EntireRow.Insert
        Selection.EntireRow.AutoFit
    Next i
    End Sub
    Nella riga marcata <====== non riesco a determinare il valore da inserire quale termine del ciclo For che Ŕ variabile e dipende dal numero di immagini presenti in colonna A.

    Grazie
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  2. #2

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    63
    Messaggi
    4871
    Versione Office
    2007 - 2013
    Utile ricevuti
    537
    Utile dati
    93

    Re: Inserimento righe tra immagini

    Dimentico sempre l'allegato.

    Eccolo
    File Allegati File Allegati
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  3. #3

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    LocalitÓ
    Verona Provincia
    EtÓ
    57
    Messaggi
    980
    Versione Office
    .
    Utile ricevuti
    322
    Utile dati
    0

    Re: Inserimento righe tra immagini

    Ammesso che sul foglio ci siano solo le immagini da "spaziare":
    Codice: 
    Sub SubInserisciRighe()
    Dim i As Long
    Dim j As Long
    j = Foglio1.Shapes.Count * 2
    For i = 3 To j Step 2
        Range("A" & i).Select
        Selection.EntireRow.Insert
        Selection.EntireRow.AutoFit
    Next i
    End Sub
    N.B.: attenzione che, verso la fine tra una immagine ed un'altra Ŕ giÓ inserita una riga in pi¨.
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  4. #4

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    63
    Messaggi
    4871
    Versione Office
    2007 - 2013
    Utile ricevuti
    537
    Utile dati
    93

    Re: Inserimento righe tra immagini

    Sai Marco che la soluzione da te proposta giÓ l'avevo sperimentata ma senza raddoppiare il numero delle immagini del foglio.

    A volte le cose pi¨ banali non le vedo proprio.

    Grazie mille.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  5. #5

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    LocalitÓ
    Verona Provincia
    EtÓ
    57
    Messaggi
    980
    Versione Office
    .
    Utile ricevuti
    322
    Utile dati
    0

    Re: Inserimento righe tra immagini

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Sai Marco che la soluzione da te proposta giÓ l'avevo sperimentata ma senza raddoppiare il numero delle immagini del foglio.
    A dire il vero non serve nemmeno, basta partire dal basso:
    Codice: 
    Sub SubInserisciRighe()
      Dim i As Long
      
      Application.ScreenUpdating = False
      For i = Foglio1.Shapes.Count To 3 Step -1
        Foglio1.Range("A" & i).EntireRow.Insert
        Foglio1.Range("A" & i).EntireRow.AutoFit
      Next i
      Application.ScreenUpdating = True
    End Sub
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  6. I seguenti utenti hanno dato un "Like"


  7. #6
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    2278
    Versione Office
    Excel2010
    Utile ricevuti
    506
    Utile dati
    122

    Re: Inserimento righe tra immagini

    Salve agli Amici
    Se posso permettermi propongo un'altra macro, iniziando dall'alto
    Codice: 
    Sub Distanza()
    Dim atz As Double
        atz = ActiveSheet.Shapes(1).Height
        Application.ScreenUpdating = False
        numSha = ActiveSheet.Shapes.Count
        With ActiveSheet
        a = 1
        For i = 1 To numSha
            .Cells(i + a, 1).EntireRow.RowHeight = Int(atz) + 1
            .Shapes(i).Top = Cells(i + a, 1).Top
            .Cells(i + a + 1, 1).EntireRow.RowHeight = 12
            a = a + 1
        Next
        End With
        Application.ScreenUpdating = True
    End Sub
    E' un po' pi¨ lunga ma fa il suo lavoro.
    Ciao,
    Mario

  8. I seguenti 3 utenti hanno dato un "Like" a Marius44 per questo post:


  9. #7

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    63
    Messaggi
    4871
    Versione Office
    2007 - 2013
    Utile ricevuti
    537
    Utile dati
    93

    Re: Inserimento righe tra immagini

    Mario fantastica la tua macro.

    Me la spieghi per favore?

    Grazie
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  10. #8
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    2278
    Versione Office
    Excel2010
    Utile ricevuti
    506
    Utile dati
    122

    Re: Inserimento righe tra immagini

    Ciao Alfredo
    a benefico dei neofiti (e tu non ne fai parte )

    atz = ActiveSheet.Shapes(1).Height assumo l'altezza dell'immagine 1 (visto che sono tutte uguali)
    numSha = ActiveSheet.Shapes.Count assumo il numero di immagini
    a = 1 contatore supplementare
    For i = 1 To numSha
    .Cells(i + a, 1).EntireRow.RowHeight = Int(atz) + 1
    pongo l'altezza della riga uguale allý'altezza dell'immagine
    .Shapes(i).Top = Cells(i + a, 1).Top pongo l'angolo sup.sin. dell'immagine nell'angolo sup.sin.della cella
    .Cells(i + a + 1, 1).EntireRow.RowHeight = 12 pongo l'altezza della cella seguente pari a 12
    a = a + 1 incremento il contatore supplementare
    Next

    Fine delle trasmissioni.
    Ciao,
    Mario

    PS dimenticavo di dire, ma Ŕ intuitivo, il ciclo Ŕ basato sul numero di immagini e non sul numero di righe (a cui fa riferimento la a)
    Ultima modifica fatta da:Marius44; 23/09/16 alle 08:28 Motivo: aggiunta PS

  11. #9

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    63
    Messaggi
    4871
    Versione Office
    2007 - 2013
    Utile ricevuti
    537
    Utile dati
    93

    Re: Inserimento righe tra immagini

    Ciao Mario grazie della risposta e del complimento (ma ho ancora tanto da imparare )

    Quello che mi ha stupito Ŕ l'approccio che hai avuto al problema, sicuramente non usuale.

    Personalmente (ma Ŕ un mio limite) spesso non riesco ad intravvedere (per mia ignoranza) soluzioni alternative alle classiche per la risoluzione di un problema.

    In questo caso, ovviamente, mi ero "fermato" all'inserimento fisico di righe tra le immagini non pensando minimamente alla posizione di queste sul foglio.

    Sono sincero: ancora non ho capito bene come funziona il tuo codice e ci sto sbattendo la testa da ieri sera ma prima o poi ci riuscir˛.

    Spesso il problema (almeno per me) non Ŕ tanto scrivere il codice ma concepire una soluzione sulla base della quale stendere le istruzioni VBA ed in questo tu sei bravissimo

    Un caro saluto.

    P.S. ma secondo te Ŕ possibile verificare se in una determinata cella Ŕ presente un immagine?
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  12. #10

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2315
    Versione Office
    Excel 2013
    Utile ricevuti
    857
    Utile dati
    779

    Re: Inserimento righe tra immagini

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    [...]
    P.S. ma secondo te Ŕ possibile verificare se in una determinata cella Ŕ presente un immagine?
    Ciao a tutti.
    Si potrebbe fare un confronto tra top e left tra immagine e cella, tipo:
    Codice: 
    If Immagine.Top = Cella.Top And Immagine.Left = Cella.Left Then

  13. #11

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    63
    Messaggi
    4871
    Versione Office
    2007 - 2013
    Utile ricevuti
    537
    Utile dati
    93

    Re: Inserimento righe tra immagini

    Grazie Enzo

    la mia era solo una domanda teorica senza nessun riferimento specifico.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  14. #12
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    2278
    Versione Office
    Excel2010
    Utile ricevuti
    506
    Utile dati
    122

    Re: Inserimento righe tra immagini

    Salve
    La risposta data da Rubik (ciao Enzo) non fa una grinza per˛ vorrei precisare che l'immagine non Ŕ dentro la cella ma sovrapposta, tanto Ŕ vero che se scriviamo qualcosa nella cella lo accetta, e non cancella l'immagine, ma non si vede perchŔ Ŕ sotto l'immagine.

    Ciao,
    Mario

Discussioni Simili

  1. [Risolto] Problema con inserimento righe o colonne
    Di Brivido.xls nel forum Domande su Excel in generale
    Risposte: 19
    Ultimo Messaggio: 03/01/17, 09:27
  2. Problema macro inserimento immagini excel 2010
    Di Mr.Troy nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 06/09/16, 19:31
  3. inserimento nuove righe
    Di gianfranco lazzini nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 23/03/16, 21:45
  4. Inserimento Righe e Somma
    Di Fred. nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 08/03/16, 09:40
  5. Nuovo tool per inserimento immagini
    Di Gerardo ZuccalÓ nel forum Problemi, suggerimenti e NovitÓ del forum
    Risposte: 1
    Ultimo Messaggio: 09/02/16, 00:51

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
  •