Søg
Avatar billede jupitor Nybegynder
08. april 2003 - 15:41 Der er 5 kommentarer og
1 løsning

Opdatering af billeder i VBA

Jeg har lavet en skal til Excel - en form med et billede og en kombinationsboks. Kombinationsboksen bruges til at bestemme indholdet af billedet. Billederne hentes fra c-drevet som gif-filer. Jeg har dog store problemer med at billedet ikke altid skifter. Det er som om det hænger. Det er meget tilfældigt hvor og om det sker. Jeg har prøvet at cleare indholdet af billedet når man klikker på boksen for at vælge nyt billede, men det giver samme problem. Er der noget man kan gøre for at dette ikke sker.
Avatar billede bak Forsker
08. april 2003 - 16:16 #1
Hvordan ser din kode ud ?
Avatar billede jupitor Nybegynder
08. april 2003 - 16:36 #2
Den ser f.eks. således ud

Private Sub Box_Change()
If Box.Value = ("Diagram 1") Then
    Image1.Picture = LoadPicture("C:\diagram 1.gif")
End If
If Box.Value = ("Diagram 2") Then
    Image1.Picture = LoadPicture("C:\diagram 2.gif")
End If
osv....
Private Sub change()
Image1.Picture = Nothing
End Sub
Avatar billede bak Forsker
08. april 2003 - 16:59 #3
Jeg har prøvet din kode og den kører fint.
Jeg tror dit problem ligger i forskelle på store og små bogstaver eller stavefejl.
Hvis man vælger en værdi der ikke findes skifter billedet ikke.
Prøv med

If UCase(ComboBox1.Value) = UCase("Diagram 1") Then

så er du på den sikre side.
Avatar billede bak Forsker
08. april 2003 - 17:07 #4
I øvrigt ville jeg nok (hvis der er mange billeder) bygge det op om SELECT CASE i stedet for alle de IF sætninger
eks.
Private Sub Box_Change()
Select Case UCase(Box.Value)
    Case "DIAGRAM 1": Image1.Picture = LoadPicture("C:\Diagram 1.gif")
    Case "DIAGRAM 2": Image1.Picture = LoadPicture("C:\Diagram 2.gif")
    'osv.
   
    Case Else: MsgBox ("Picture not found")
End Select
End Sub
Avatar billede bclservodanas Nybegynder
18. juni 2003 - 16:48 #5
Prøv evt. at indføre en Doevents kommando. Det kan betale sig hvis makroen kører konstant(uendeligt)
Avatar billede jupitor Nybegynder
03. maj 2011 - 12:59 #6
Tak for hjælpen alle
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 7 17/08/202615:14 20/08/202613:27
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel 13 24/07/202611:08 03/08/202618:42
Opdatering af celler i excel ark Af lurup i Excel 2 09/06/202619:40 10/06/202614:34
data fra et excel til google kalender Af lurup i Excel 3 02/06/202613:23 03/06/202615:06
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
22/0821:38 webui_forge_cu121_torch231 med AMD Grafikkort. Af jonpet i Andet software
22/0820:06 email adresse Af Malm i Forslag til ændringer
22/0819:54 problem med google crome Af Malm i Andet software
22/0809:36 Alternativ holder til to skærme... Af Don G i Skærme
20/0815:01 Samsung smart TV Af postpeter@outlook.dk i Fri debat
White papers
Flere white papers »