Zdar a silu joot, dna 04.03.2002 si napisal(a):
> Dobrý den,
> mám tabulku v excelu, která obsahuje rozbalovací menu s názvy firem a
> podmínku, která na základě vybrané firmy doplní do učených polí
> adresu, ičo atd. Jak udělat to, aby se s vybranou firmou měnilo i
> logo (vložený obrázek) v rohu listu ?? Děkuji
takze:
1. vytvor si jeden list (napr. s nazvom skryty) a vlož si tam tie loga
-nevyhoda zvacsi sa ti xls subor ale nemusis zadavat adresu k logam.
2.v menu nastroje>makro>editor ... bla bla
klikni (2x) na ten list kde ti ten vyberovy dropbox - rozbalovaci menu hadze
tu aktualnu hodnotu (1~pocet zaznamov)
3. vloz tam toto:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Obrazok As Integer
'target adress nastav to policko co sa mu meni hodnota _
ako priklad napr. B1
If Target.Address = "$B$1" Then
'Obrazky su vlastne shapes s moznostou pristupovat
'ku nim pomocou indexu alebo názvu
'toto je priklad cez index:
Obrazok = Range("B2").Value
Sheets("SKRYTY").Shapes(Obrazok).Copy
'nutne prepisat!!!! na aktualny list ""
Sheets("NazovListuKdeMaBytLogo").Select
ActiveSheet.Paste
trpelivou pili a mnohanasobnym skusanim _
zistis ake hodnoty musis zadat do tychto riadkov + -
Selection.ShapeRange.IncrementLeft 7.75
Selection.ShapeRange.IncrementTop -6.75
Selection.ShapeRange.IncrementBottom 7.75
End If
End Sub
--
s pozdravom
AleXXX
This archive was generated by hypermail 2.1.2 : 04. 03. 2002, 18:24 CET