Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie: Sofia15
| Femeie 24 ani Constanta cauta Barbat 24 - 40 ani |
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 748
|
|
1. TABLE BORDERS TOGGLE - clicking the button once will add borders to the selected table if it has none, or will remove them if table has borders
IMPORTANT NOTE: this code adds / removes borders from the entire table, not from a selected cell / row / column.
Sub TableBordersToggle()
Set myTable = Selection.Tables(1)
If myTable.Borders.Enable = False Then myTable.Borders.Enable = True Else myTable.Borders.Enable = False End If
End Sub |
2. PICTURES BORDERS TOGGLE - clicking the button once will add border to the selected picture if it has none, or will remove it if the picture has border (this will actually add a thin black line around the pictures; there is a difference between adding borders and lines afaik, and this is actually a SURROUNDING LINE TOGGLE, which sounds kinda weird)
Sub PictureBordersToggle()
Set pic = Selection.InlineShapes(1)
If pic.Line.Visible = msoFalse Then pic.Line.Visible = msoTrue Else pic.Line.Visible = msoFalse End If
End Sub |
For adding these 2 macros on Quick Access Toolbar, see points 5 and 6 from this post:
Modificat de TRaP (acum 6 ani)
|
|
pus acum 6 ani |
|