Posizione Immagini

Hai un problema con Excel?

Nuova discussione

Posizione Immagini
di SouthWind data: 29/11/2016 09:26:40
Ciao.
Eccomi per una nuova richiesta di aiuto.
Ho necessità di posizionare una immagine (sempre la stessa) ad ogni tot righe (immaginate una carta intestata).
Il mio script è:

ActiveSheet.Pictures.Insert("patch dove si trova l'immagine e nome dell'immagine").Select
With ActiveSheet.Pictures(1)
.Left = ActiveWindow.VisibleRange.Columns(1).Left
.Top = ActiveWindow.VisibleRange.Rows(i).Top
End With

dove "i" è il numero di riga determinato da un ciclo for-next.
Il problema è che mi posiziona l'immagine "a capocchia" e non sempre lo fa.
Dove sbaglio?
Grazie 1000.
di patel data: 29/11/2016 09:35:44
allega un file di esempio con la macro e indica dove devono andare le immagini
di SouthWind data: 29/11/2016 10:43:54
Ciao Patel.
Ho allegato il file.
La macro è quella del post precedente.
L'immagine, sempre la stessa, deve essere posizionata alla riga indicata nel file stesso con il testo in bold rosso (sostanzialmente ad ogni salto pagina).
Grazie.
di patel data: 29/11/2016 11:28:26
non hai letto bene cosa ho chiesto
di SouthWind data: 29/11/2016 12:02:39
Scusami patel.
Sicuramente non ho letto bene ma, per favore, fammi capire.
Tu scrivi:
"allega un file di esempio con la macro e indica dove devono andare le immagini"
Cosa ho fatto:
allega un file di esempio (l'ho allegato)
con la macro (è riportata nel test del post precedente)
e indica dove devono andare le immagini (l'indicazione è nel file allegato in testo rosso grassetto in ogni riga dove deve andare l'immagine).
Dunque a meno che non ti riferissi ad allegare il file con la macro embebbed (e non capirei la differenza), francamente non ho capito che devo fare.
Grazie comunque.
di patel data: 29/11/2016 12:35:57
ti sembra una macro completa quella del primo post ? non c'è differenza da quella del file ? se ti piace perdere tempo fai pure.

di SouthWind data: 29/11/2016 12:38:53
Grazie della consulenza Patel.

Recependo la giusta osservazione sulla completezza della macro, provo a postare il codice che, da ignorante, ritengo rappresenti la macro in questione.

Sub IMMAGINI_TESTATA()

'--- GESTIONE IMMAGINI TESTATA---

For i = 1 To 1000

   ActiveSheet.Pictures.Insert("path e immagine da inserire").Select
   With ActiveSheet.Pictures(1)
   .Left = ActiveWindow.VisibleRange.Columns(1).Left
   .Top = ActiveWindow.VisibleRange.Rows(i).Top
  End With
                                   
Next i

End Sub

di patel data: 29/11/2016 16:22:42
prova questa

Sub IMMAGINI_TESTATA()
Dim c As Range
ActiveSheet.Pictures.Insert("percorsoimmagine.jpg").Select
Selection.Copy
With Columns(1)
  Set c = .Find("IMMAGINE", LookIn:=xlValues)
  If Not c Is Nothing Then
    firstAddress = c.Row
    Do
      Set c = .FindNext(c)
      crow = c.Row
      Cells(crow, 1).PasteSpecial
    Loop While Not c Is Nothing And c.Row <> firstAddress
  End If
End With

End Sub

Vuoi Approfondire?