< návrat zpět
MS Excel
Téma: Pád Excelu 
Zaslal/a Jeza.m 26.1.2012 16:25
Ahoj,
mám soubor se spoustou dat a maker, jeden z úkonů mi do buňek vkládá komentář bez textu, ale s vlaječkou na pozadí. Po několika letech používání začal soubor padat (respektive celý excel), aniž bych věděl proč.
Po odstranění veškerých objektů, dat, komentářů mi na listu zůstalo pár vlajek, ale nejsou zde jako objekt a nevím jak je smazat - ani nevím jak se tam dostaly, různým testováním jsem se dostal k tomu, že při najetí myší nad tuto vlaječku spadne excel.
Nenapadne někoho jak se jich zbavit v živé verzi mého souboru, aniž bych musel vytvářet celý list znovu?
V příloze posílám ukázku bez dat.
Díky
M@
Příloha: 
7068_x2.zip (11kB, staženo 11x)
Uzamčeno - nelze přidávat nové příspěvky.
Poki(26.1.2012 17:33)#007069
ahoj,
identifikoval jsem tam podivne Komentare (asi pozustatky, ale jsou to ty vlajecky).
Kdyz jsem smazal (makrem) komentare Comment 212 - Comment 222, slo to normalne.
Nemam ale tuseni, co to udela s tvym normalnim souborem - zkusit se to ale da
Sub smazat()
For i = 212 To 222
ActiveSheet.Shapes("Comment " & i).Delete
Next i
End SubcitovatJeza.m(26.1.2012 20:21)#007074 Vypadá to nadějně, hned zítra v práci zkusím.
Vypadá to, že jelikož se těmito dvěmi indexy smaže všech 9 vlajek, že některé musí mít stejný index, což je asi to co excel zblbne a zhroutí - ale stejně mi hlava nebere jak se to stalo :-).
Díky za Tip a snad i řešení.
M@
citovatJeza.m(26.1.2012 21:29)#007078 Nedalo mi to a ještě jsem se připojil do práce, tam mě to hned vykoplo - ty indexy jsou jiné a kupodivu mi to nebralo ani ActiveSheet.
Nakonec ale vyřešeno pomocí:
Public Sub smazat()
For Each Shape In List4.Shapes
If InStr(1, Shape.Name, "Comment", vbTextCompare) <> 0 And Shape.Width = 14.25 Then
List4.Shapes(Shape.Name).Delete
End If
Next
End Sub
Ještě jednou díky
M@
citovat
\n
RSS nejnovější články