Citat:
zage: video da pokraj izbora imena iz padajuce liste koji u ovom slucaju da rezultat da da i odredzenu sliku za zadatog tipa prozora..
Ovo što želiš i nije tako jednostavno pa za neko rješenje trebaš znati raditi sa
Makronaredbama
Da ne bi ovdje opisivao detalje imaš sve u attachu, ali u globalu.
Na dodatni Sheet (npr: slike) kreiraš tablicu i imenuješ podatek sa "PicTable"
Pripremiš sve slike koje želiš korisiti (vodi računa d aim je "Šir x Vis" jednaka a ne mora biti)
Sve slike obradiš tako da im u Properties postaviš iste nazive kao i u tablici na dodanom sheetu (npr: slike). Ovdje vodi računa da svaku sliku imenuješ nazivom korisnika, što u tvom slučaju je pretpostavljam neka šifra za određeni prozor.
Na sheetu "osnova" na kojem ti se nalazi padajući izbornik i rezultati kopiraš sve obrađene slike sa sheeta "slike". Vodi računa da je ovaj sheet pod nazivom "osnova" u stvari "Sheet4" što vidiš u VBE.
Umetneš navedeni Macro (ja sam ga već postavio) u VBE na sheet "osnova" => Sheet2
Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim test As String
Dim shp As Shape
If Target.Address <> "$C$10" Then Exit Sub
With Me
For Each shp In Me.Shapes
shp.Visible = True
Next shp
For Each shp In Me.Shapes
Select Case shp.Name
Case Is <> Target.Value
If Application.WorksheetFunction.CountIf(Sheet4.Range("PicTable"), _
shp.Name) > 0 Then
With shp
.Visible = False
.Top = Range("E10").Top
.Left = Range("E10").Left
End With
End If
End Select
Next shp
End With
exit_proc:
End Sub
Nadalje uoči da sada imaš drugačiju postavku za padajuću listu na sheetu "osnova" i umjesto dosadašnje liste imaš formulu sa funkcijom
OFFSET
Code:
=OFFSET(PicTable;;;;1)
Ako si postavio Macro u VBE prilikom prvog izbora sa padajuće liste (npr:zage) slike nestaju sa dotičnog sheeta i sada su "invisible" ali ih i dalje imaš prilikom izbora.
Nadam se da ćeš se snaći.
btw: za ostale inserte slika u Excel pretraži ES forum