Moderatori: Anthony47, Flash30005
ActiveSheet.Shapes(NomeImm).Visible = False
ActiveSheet.Shapes(NomeImm).Visible = TrueSub Nomesh()
For Each Pict In ActiveSheet.Shapes
NomeImm = Pict.Name
ActiveSheet.Shapes(NomeImm).Select
Addr = Selection.TopLeftCell.Address
MsgBox (NomeImm & " - " & Addr)
Next Pict
End SubTorna a Applicazioni Office Windows
| Excel apre solo una schermata bianca Autore: jameswilson |
Forum: Applicazioni Office Windows Risposte: 1 |
| Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
| Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 36 ospiti