Keresés

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

  • 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