• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Zobrazení objektu

Zaslal/a Lano 11.11.2011 13:32

Zdravím,
mám takovou hloupost: v excelu mám vložený obrazec (např.šipku) a potřebuji ji makrem zobrazovat a skrývat. Zatím to řeším přesunem na konec listu a pak přesunem zpět, ale to není ono. Určitě existuje nějaké jednodušší řešení.
Díky předem.

Zaslat odpověď >

---

Roman(11.11.2011 14:14)#006454

Nevyhovuje toto:

Sub Makro1()
ActiveSheet.Shapes.AddShape(msoShapeRightArrow, 354, 39.75, 152.25, 25.5). _
Select
Set obr = Selection
obr.Delete
End Subcitovat

Lano(11.11.2011 14:23)#006455

Dobrý, mám smazáno. Ale já ho chci i znovu zobrazit.
Popíšu co chci: když kliknu na danou buňku, obrazec se zobrazí, když buňku opustím (nebo kliknu jinde) obrazec se skryje.citovat

Roman(11.11.2011 15:20)#006457

Nevím,které buňky jsou zobrazovací a které deletovací o to je nutné upravit makro

Public Obr As Object
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Obr Is Nothing Then
ActiveSheet.Shapes.AddShape(msoShapeRightArrow, 354, 39.75, 152.25, 25.5). _
Select
Set Obr = Selection
Else
Obr.Delete
Set Obr = Nothing
End If
End Subcitovat

Lano(11.11.2011 17:33)#006459

Super, díky. To jsem potřeboval. Zbytek si dodělám.citovat

AL(13.11.2011 14:42)#006466

Ahoj, podľa môjho názoru nie je nutné objekt mazať a vykresľovať znovu, stačí meniť jeho vlastnosť visible. Pokiaľ máš na aktívnom liste iba jeden tvar, tak tu je príklad, ako prepínať viditeľnosť objektu:
Option Explicit
Sub pom()
Dim Tvar As Shape
Set Tvar = Activesheet.Shapes(1)
Tvar.Visible = Not Tvar.Visible
End Subcitovat

Lano(13.11.2011 18:53)#006467

To je přesně to, co jsem chtěl. Vykreslování objektu mi už funguje, ale toto je jednodušší. Jdu to předělat.
Díky oběma, protože Roman mě nasměroval svým makrem na řešení jiného problému citovat

AL(13.11.2011 19:12)#006468

JJ, som rád, že Ti to k niečomu je. Riešenie som poznal hneď, akurát ma skolila angína, tak som to sem nestihol dať skôr.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse