Změna velikosti komentáře v xlsm Vyřešeno

[VALL]

Potřebuji makrem změnit velikost komentáře v buňce.
Poté, lze změnit font textu v komentáři?

[Reklama]

[mike007]

 
Vítej na PC-help!

Proč na to potřebuješ makro? Velikost komentáře, změnit font, barvu komentáře atp. můžeš udělat zcela jednoduše.

Velikost komentáře upravíš tak, že klikneš do buňky pravým tlačítkem myši, z kontextového menu vybereš úpravu komentáře. Poté stačí komentář chytit za roh a tahem upravíš velikost jak potřebuješ.

Změna fontu je též jednoduchá - označíš text v komentáři a v panelu vybereš požadované písmo, velikost, barvu atd.

Pokud dvakrát klikneš na okraj komentáře, otevře se ti okno s několika záložkami. Tam si budeš moct nastavit jinou barvu pozadí (lze vložit i obrázek), upravit písmo atd.

Dokonce je možné i změnit tvar komentáře ... ale to už je vyšší dívčí



Základy práce v Excelu... Jistě najdeš na internetu hromadu návodů i s obrázky.

Ale jestli lpíš na tom mít na to nějaké makro, tak mohu něco napsat. Jen mi musíš říct co přesně má to makro dělat.

[VALL]

Ahoj, díky za odpověď, ale můj záměr je jiný. Dělám opakovanou činost, u které zapisuji hodnoty do buňky a do komentáře, v kterém mám předdefinované názvy položek. Buňku v konečné podobě barevně formátuji.
cílem je:
- vložit hodnoty do aktivní buňky - mám makro
- Barevně naformátovat - mám makro
- Vložit komentář s předefinovaným textem na více řádcích - mám makro
- upravit velikost komentáře tak, aby byl všechen text vidět - velikost komentáře je konstatní - NEMÁM MAKRO
v příloze je příklad úlohy.

[Azuzula]

V příloze jsem přidala následující kód do "with activecell" teď stačí upravit čísla podle toho jak chcete komentář velký.

Kód: Vybrat vše

.Comment.Shape.Height = 150 'pro délku
.Comment.Shape.Width = 100 'pro šířku

[VALL]

Díky, ještě jsem bádal nad změnou barvy předefinovaného textu v komentáři.

[Azuzula]

Jo, to jsem taky někde četla, ale zaboha si nedokážu vzpomenout na název vlákna kde se to řešilo...

[mike007]

Dá se třeba takto:

Kód: Vybrat vše

With Cell.Comment.Shape.TextFrame.Characters.Font
.ColorIndex = 3
.Size = 12
.Name = "Tahoma"
End With

Seznam ColorIndexů je třeba tady: http://dmcritchie.mvps.org/excel/colors.htm

[Azuzula]

Přesně tohle jsem našla taky, ale v tom kódu co má val00643 se mi to nepodařilo zprovoznit, ale pod řádek s velikostí komentáře jde doplnit:

Kód: Vybrat vše

.Comment.Shape.TextFrame.Characters.Font.Name = "Times New Roman"
.Comment.Shape.TextFrame.Characters.Font.Size = 11
.Comment.Shape.TextFrame.Characters.Font.Bold = False
.Comment.Shape.TextFrame.Characters.Font.ColorIndex = 0

Hotovo v příloze