Søg
Avatar billede brobaek Nybegynder
06. august 2002 - 12:15 Der er 8 kommentarer og
1 løsning

Billede fra udklipsholder til imagekontrol på en form

Jeg har et billede, som jeg har copy ind i min udklipsholder.

Dette billede skal jeg have ind i en imagekontrol på en form.

Hvordan ?

Hidtil er koden:

sub PicToIma
    Ark1.Shapes("Billede 4").CopyPicture
    'Her skal så være noget a'la:
    'frmUserForm.Image1.Picture.Paste
end sub

Kan man evt. gemme indholdet af udklipsholderen ?

Thx
Brobæk
Avatar billede brobaek Nybegynder
06. august 2002 - 12:21 #1
Kan man evt. gemme indholdet af udklipsholderen I EN FIL (skulle der ha' stået) ?
Avatar billede aovergaard Nybegynder
06. august 2002 - 14:04 #2
Du kan godt gemme indholdet af din udklipsholder. Åbn et billed-behandlingsprogram og paste. Nu kan du gemme filen.
Avatar billede Slettet bruger
06. august 2002 - 14:06 #3
Prøv at åbne MSPaint, og paste billedet ind der. Du kan evt. rette lidt i billedet inden du gemmer det.
Avatar billede bak Forsker
06. august 2002 - 15:11 #4
Der er en anden måde at gøre det på med jeg kan ikke umiddelbart kode det, men det kan du jo arbejde videre på.
Du har lavet din userform med imagekontrollen.
Kopier billedet.
gå til userformens imagekontrol
tryk F4 for properties
I feltet picture trykker du ctrl-V (paste)
Billedet vises nu i userformen.
Avatar billede brobaek Nybegynder
06. august 2002 - 16:13 #5
Ja, alt dette er jeg klar over. Men jeg skal kode det, således at processen sker automatisk.

Bak>> Man kan ikke paste vha. kodning til en imagekontrol, dvs :

frmUserForm.imaImageKontrol.Picture.Paste

, virker ikke.
Avatar billede bak Forsker
06. august 2002 - 16:27 #6
se evt.
http://www.bmsltd.co.uk/DLCount/DLCount.asp?file=PastePicture.zip
Avatar billede brobaek Nybegynder
07. august 2002 - 11:31 #7
Ja, dette er et chart - den kan jeg også godt.

Det har jeg er et billede af celle A1:C11 (nedenstående kode):

Private Sub cmdTest_Click()
    Range("B4:H8").Select
    Selection.Copy
    ActiveSheet.Pictures.Paste.Select
    Selection.Name = "PictureBox"
End Sub

Dette billede skal jeg altså have ind i input boksen automatisk.
Avatar billede bak Forsker
07. august 2002 - 12:01 #8
nej brobaek. det er ikke kun charts, det er et hvilket som helst billede.
Du skal kopiere hele modulet modPastePicture over i dit eget regneark.
derefter kan du gøre således:

Private Sub UserForm_Initialize()
Sheet1.Shapes("Picture 2").CopyPicture
Set UserForm1.Image1.Picture = PastePicture(xlPicture)
End Sub
Avatar billede brobaek Nybegynder
07. august 2002 - 14:02 #9
Perfekt - det har du jo fuldstændig ret i.

Tak for hjælpen...
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
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 05/09/202622:04
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
25/0916:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
White papers
Flere white papers »