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
| How to Fix Excel Freezing When Opening Large Files on Window Autore: olalaleon |
Forum: Applicazioni Office Windows Risposte: 1 |
| Excel apre solo una schermata bianca Autore: jameswilson |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: Nessuno e 31 ospiti