MS Excel

Téma: Vložený obrázek na pozadí

Zaslal/a jablicko85 14.12.2011 13:27

Dobrý den,

používám pro vložení obrázku po kliknutí tento kod:

Private Sub Image2_Click()
On Error Resume Next
Dim umisteni As String
umisteni = Application.GetSaveAsFilename("C:\", , , "Najdi obrázek nebo zadej cestu")
If umisteni <> "" Then
Image2.Picture = LoadPicture(umisteni)
End If

A potřeboval bych po tom, co obrázek vložím na něj přesunout textové pole, to však vždy zmizí za obrázkem, potřeboval bych aby vložený obrázek byl vždy v pozadí. Můžete mi někdo prosím pomoci, jak toho dosáhnu?

Děkuji

Zaslat odpověď >

Poki(14.12.2011 13:55)#006696

Musite vkladat textove pole z prvku ActiveX (protoze i obrazek pouzivate z prvku ActiveX)
U tech pak neni problem presunout nektery prvek do popredi, resp. do pozadi...citovat

jablicko85(14.12.2011 14:29)#006697

Děkuji a lze nějak nastavit ActiveX textové pole jako průhledné? Respektive jen viditelný text?citovat

Poki(14.12.2011 15:13)#006698

Jo, to jde.
Musite ve vlastnostech prvku nastavit:
1) BackStyle: 0 - fmBackStyleTransparent
2) BorderStyle: 0 - fmBorderStyleNonecitovat

jablicko85(15.12.2011 12:51)#006708

To mi právě funguje, ale pouze do doby, kdy nastavím, že se textové pole rovná obsahu nějaké buňky a poté zmizí položka "Vlastnosti" a pozadí zůstane bílé nezměnitelné.

Nevíte, jestli to poté jde nějak nastavit? Děkuji moccitovat

Poki(15.12.2011 13:37)#006709

Mne to funguje normalne, viz priloha...

Příloha: zip

6709_textboxaobrazek.zip (28kB, staženo 67x)

citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.