Voinko tehdä ohjausobjektilla tai muulla keinoin "valintasolun", josta valitsemalla vaihtuu pieni kuva esim 5 kpl kuvia jotka pitäisi itse saada valittua. Valittu kuva näkyisi lopullisessa tulostuksessa.
Voiko kuvaa valita askelluspainikkeella
Vaikeahko
2238
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 2
Vanhimmat
Visual Basic työkaluriviltä/Työkalut/Kuva ja kopioi kuva 4 kertaa
Kuvan ominaisuuksissa Picture selaa haettava kuvan polku ja Visible arvoksi false ja toista muille sama juttu.
Heigh, Left, Top ja Width arvot samoiksi kaikille kuvaobjekteille.
Lisää Askelluspainike ja laita sen ominaisuuksiin
Max=5
Min=1
PrintObject=False
ja taulukon moduuliin seuraava koodi
Private Sub ScrollBar1_Change()
Select Case ScrollBar1
Case 1
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Case 2
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Case 3
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
Image4.Visible = False
Image5.Visible = False
Case 4
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = True
Image5.Visible = False
Case 5
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = True
Case Else
End Select
End Sub
Tässä yksi modifikaatio aiheesta samaa VBA ideaa käyttäen.
Formilla on nyt yksi kuvakehys ja scrollbar, kuvatiedostojen täydelliset nimet polkuineen sarakkeessa "G" riveillä 1-5.
Koodi sitten näin:
---------------
Private Sub ScrollBar1_Change()
vaihda
End Sub
Private Sub vaihda()
Image1.Picture = LoadPicture(Sheets("Sheet1").Range("G" & (ScrollBar1.Value)).Value)
End Sub
---------------