Consenso all'uso dei cookies

SITO1 -- SITO2 -- Forum2 -- CercaGlobale -- Informativa su Cookie e Privacy

Questo Forum1 è in sola lettura -- Usa il Forum2


Valutazione discussione:
  • 0 voto(i) - 0 media
  • 1
  • 2
  • 3
  • 4
  • 5
Excel: simbolo o disegno e nome in una unica cella o…...
#1
buona notte amici, rieccomi

Riferendomi al post brillantemente risolto col vostro aiuto:
http://www.istitutomajorana.it/forum/Thr...nte?page=2
ho pensato di far precedere al fianco di ogni nominativo il simbolo della squadra del cuore.
Es. Simbolo milan Antonio
Etc.
simbolo o disegno e nome in una unica cella o in due celle attigue in modo che ogni volta che in classifica si richiama un nome compare anche il simbolo corrispondente a quel nome.
Come potrei fare?
Sto provando in tanti modi ma insuccesso completo.Arrendersi
Cita messaggio
#2
niente di nuovo?
Cita messaggio
#3
tu vuoi che al verificarsi di una determinata condizione compaia un'immagine, la vedo dura....con la formattazione condizionata puoi colorare una cella ma per inserire immagini la vedo troppo dura Huh
Cita messaggio
#4
vedi esempio allegato


Allegati
.zip   esempio.zip (Dimensione: 172,32 KB / Download: 8)
Cita messaggio
#5
è possibile, ma c'è da fare un grosso lavoro di associazione del nome della squadra all'immagine, comunque la macro per inserire una immagine in una cella e poi spostarla su un'altra è questa:
Codice:
Sub InserisciImmagine()
Dim cella, shp As Shape

    ActiveSheet.Pictures.Insert( _
        "C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg").Select
              cella = "A1" '<== la cella dove vuoi incastrarel'immagine
       Set shp = Selection.ShapeRange.Item(1)
       With shp
          .LockAspectRatio = msoFalse
          .Width = Foglio1.Range(cella).Width
          .Height = Foglio1.Range(cella).Height
          .Cut
       End With
       Range(cella).PasteSpecial

End Sub
Sub spostaImmagine()
Dim cella, shp As Shape

       Set shp = Selection.ShapeRange.Item(1)
       shp.Cut
       Range("D1").PasteSpecial

End Sub
Un titolo ben azzeccato attira l'attenzione degli esperti in quel campo, fa risparmiare tempo a voi, aumenta la probabilità di successo.
Cita messaggio
#6
E' meno complicato di quanto avevo previsto, occorre
1) rinominare le immagini col nome della squadra
2) adattare la macro presente nel file allegato


Allegati
.zip   Sposta-immagini.zip (Dimensione: 23,72 KB / Download: 13)
Un titolo ben azzeccato attira l'attenzione degli esperti in quel campo, fa risparmiare tempo a voi, aumenta la probabilità di successo.
Cita messaggio
#7
provo i consigli avuti e vi farò sapere
grazie
Cita messaggio
#8
(29-04-2012, 10:27 )patel Ha scritto: E' meno complicato di quanto avevo previsto, occorre
1) rinominare le immagini col nome della squadra
2) adattare la macro presente nel file allegato

Buongiorno

Sono nuovo del forum
Ho visto che il foglio funziona perfettamente e fa proprio quello che mi serve
ma dovendo adattarlo alle mie esigenze volevo capirne il funzionamento e la logica 
del visual basic di cui sono pochissimo esperto e quindi....non ho capito nulla
se qualcuno è disponibile ad aiutarmi ne sono grato anticipatamente
Paolo
Cita messaggio
#9
Sub spostaAccantoAlNome()
Dim cella, shp As Shape
Set Rng = ActiveSheet.Range("G2:G4")
For Each cella In Rng
ActiveSheet.Shapes(cella.Value).Select
Selection.Copy
Cells(cella.Row, cella.Column + 1).PasteSpecial
Next
End Sub

questa è la macro che fa tutto, ma non ho capito come gestisce il tutto
Cita messaggio
#10
Ciao Paolo,

gentilmente riposta la tua richiesta nel nuovo Forum2:

http://www.istitutomajorana.it/forum/Thr...IL-FORUM-2

Prima devi registrarti, se non già provveduto.
Questo forum tra un poco resterà in sola lettura.
Grazie.
Cita messaggio


Vai al forum:


Utenti che stanno guardando questa discussione: 1 Ospite(i)