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

MS Excel

Téma: Makro smazání obrázků

Zaslal/a Jika 21.10.2010 15:10

Dobrý den, rád bych se zeptal zda existuje příkaz pro makro, které by provedlo následující:
označí dané pole řádků (např. celé řádky 6 až 30)
v tomto poli se nacházejí data, vzorce, ale i obrázky a funkční tlačítka maker
po označení dojde ke kompletnímu smazání všech dat včetně formátování buňěk (doteď to mám vyřešené)
makro smaže i obrázky a tlačítka obsažené v tomto označeném poli (nikde jinde).... toto je oříšek, na který nemůžu přijít

Do této chvíle mám připravený tento skript:
Application.ScreenUpdating = False 'zajistí běh makra na pozadí
If ActiveCell.Value = "ANO" Then 'aktivní buňka musí obsahovat slovo ANO
Dim mySheet As Worksheet
Set mySheet = Worksheets(1)
mySheet.Activate
mySheet.Unprotect "heslo"
ActiveCell.Rows("1:37").EntireRow.Select
Selection.Delete 'tímto se mi smažou data z buněk, ale zůstanou obrázky a tlačítka
ActiveWindow.SmallScroll Down:=-40
Range("A15").Select
ActiveCell.FormulaR1C1 = "ANO" 'vepsání slova ANO do buňky, která je o 37 polí výše tzn. v předchozí tabulce
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=10
mySheet.Protect "heslo", True, True, True
Else: MsgBox "Tuto tabulku nelze smazat!!", vbInformation, "Upozornění"
End If
Application.ScreenUpdating = True 'zobrazí výsledek makra

End Sub

Zaslat odpověď >

---

Jika(27.10.2010 15:32)#002904

tak mě napadlo, že by mi stačilo vymyslet příkaz v makru, který by mi označil poslední vložený obrázek. Např. mám první obrázek s názvem Picture 118, dalším rozkopírováním tabulky mi vznikne Picture 119. Nyní když potřebuji smazat poslední tabulku mi stačí označit obrázek s číslem 119. Poradil by mi někdo s tímto příkazem? Děkujicitovat

Poki(27.10.2010 15:56)#002906

tohle by mohl byt posledni obrazek na listu1:
list1.pictures(list1.pictures.count)citovat

Jika(29.10.2010 11:24)#002924

nějak mi ten příkaz na označení posledního obrázku nefunguje. Mám list Quality a jak jsem psal obrázky nazvané Picture 118 atd., i přesto, že jsem se snažil jakkoli doplnit příkaz select, pro označení, tak se mi to nedaří.

děkujicitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse