Új hozzászólás Aktív témák

• #3007 Delila_1 veterán gsc73 #3004

  Új Válasz 2008-01-21 08:40:13 #3007

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz gsc73 #3004 üzenetére

  A With sorban megadunk egy objektumot, amire a változtatások vonatkoznak. Jelen esetben a kijelölt terület (selection) hátterét (interior). A további sorok ponttal kezdődnek, amit úgy kell értelmezni, mintha a With sorban írtakat folytatnánk (With nélkül):

  selection.interior.colorindex=15
  selection.interior.pattern=xlsolid 'nincs mintázat
  selection.interior.patterncolorindex=xlautomatic 'a mintázat színe

  A két utóbbi kitörölhető, mivel alapbeállítás, és akkor már nincs szükség a With, End With-ra sem.

  Ezt a makrót most rögzítettem, a karakter típusát változtattam meg. '******-gal jelöltem, ami nem szükséges, törölhető.

  With Selection.Font
  .Name = "Tahoma"
  .Size = 10 '******
  .Strikethrough = False '******
  .Superscript = False '******
  .Subscript = False '******
  .OutlineFont = False '******
  .Shadow = False '******
  .Underline = xlUnderlineStyleNone '******
  .ColorIndex = xlAutomatic '******
  End With

  Végül ennyi marad: Selection.Font.Name = "Tahoma"

Új hozzászólás Aktív témák