No kedže som stravil cely den prehladavanim webu a nič ... tak som sa pustil do vytvorenia sukromnej palety vo forme "userform" ...

... teraz potrebujem poradit ako sa da sfunkčnit takyto princip :


For I = 1 To 5
UserForm1.Image(I).BackColor = RGB(RED, GREEN, BLUE)
Next I

nechce mi to zobrat to " Image(I) " ako sa to robí vo vba? (takto to šlo v c++)

:confused::confused::confused:

Idem od konca.

1) Ad RGB.
Ak si vo VBA oselektuješ názov fn RGB a potom stlačíš F1, zobrazí sa ti ako sa fn používa. Farebná škála sa zadáva priamo ako čísla:

Me.Controls("TextBox" & i).BackColor = RGB(255, i * 50, i * 10)
'(RED, GREEN, BLUE)

resp. spôsobom pomenovaných argumentov:

Me.Controls("TextBox" & 6 - i).BackColor = _
RGB(red:=255, green:=i * 50, blue:=i * 10)

Odkazovanie na jednotlivé objekty UserFormu možno cez ich názvy cez Controls.

2) ad xlDialogColorPalette
Tento dialóg slúži na zmenu celej farebnej palety aktuálneho zošita (mrkni si pripojený príklad)

3) Ofarbenie bunky

Jednoduchá zmena pozadia cez VBA sa dá cez Interior a ColorIndex.
Stačí keď si dáš odchytenie makra, veľa ti napovie Excel sám (potom stačí F1:cool:)



With Selection.Interior
.ColorIndex = 8
End With


Ak však chceš volať formátovací dialóg, tak treba volať iný, pre pozadie je to konkrétne: xlDialogPatterns

Ostatné sú tieto:


''xlDialogFormatNumber
''xlDialogAlignment
''xlDialogFormatFont
''xlDialogBorder
''xlDialogPatterns
''xlDialogCellProtection

Celý zoznam zabudovaných dialógov, ako ich volať s parametrom .. si môžeš pozrieť aj tu:
Excel - volanie zabudovaných dialógov (http://www.pc-prog.eu/phpBB3/viewtopic.php?f=16&t=110&start=0)

Palo

Tak tomu vravím komplexná odpoved... ;););)

Velká vďaka PaloPa ... s týmto už dokážem tvorit dalej...

... pochopil som všetko len drobnosť, ako je to myslene "počet kopii" ?


With dlg
.Show ' , , , 1 'pocet kopii
End With

===============================

Jáj to patrí k tomu "print dialogu" ...

Super velmi pekne dakujem..!