Avatar billede stefanfuglsang Juniormester
17. juni 2005 - 13:29 Der er 2 kommentarer og
2 løsninger

Copy/Paste-metode: hvordan tømmer man klippebord?

Jeg har forsøgt følgende, for at indsætte et billede som markør på et diagram, men problemet er at Copy/Paste ikke virker, hvis der er data i klippebordet  - hvordan tømmes klippebordet?

Sub Makro2()
    Dim s As Shape
    Set s = ActiveSheet.Shapes.AddPicture(Filename:="c:\billede.bmp", LinkToFile:=False, SaveWithDocument:=True, Left:=100, Top:=100, Width:=10, Height:=10)
 
    s.Copy
    ActiveSheet.ChartObjects("Diagram 1").Activate
    ActiveChart.SeriesCollection(1).Paste
End Sub
Avatar billede halifax Nybegynder
17. juni 2005 - 13:48 #1
Jeg har i mange år brugt et lille freeware program til formålet, clipclear.
Ud over at tømme udklipsholderen kan det bruges til at vise det aktuelle indhold i den.
Lav en genvej fra programmet til Start-mappen, så det kører ved Windows start. Når noget ryger i udklipsholder vises et icon i systembakken. Ved enkelt klik tømmes udklipsholder og icon forsvinder. Ved h-klik kan indholdet vises.

Læs mere og hent herfra - se under freeware
www.moonsoftware.com

Det du efterspørger er måske snarere kode/kommandoer til at slette med?    :)
Avatar billede halifax Nybegynder
17. juni 2005 - 13:50 #2
Hey, mit "svar" skulle kun være en kommentar. Afvis hvis du ikke kan bruge det.
Avatar billede stefanfuglsang Juniormester
17. juni 2005 - 14:08 #3
Jeg løser det med et API-kald:
Hele koden ser således ud

'definer funktion til API-kaldet
Private Declare Function EmptyClipboard Lib "user32" () As Long

Sub InsertMarker()
    Dim s As Shape
    'indsæt billede på ark
    Set s = ActiveSheet.Shapes.AddPicture(Filename:="c:\billede.bmp", LinkToFile:=False, SaveWithDocument:=True, Left:=100, Top:=100, Width:=10, Height:=10)
    'Tøm klippebord
    EmptyClipboard
    ' kopier billede
    s.Copy
    'indsæt billede i serien
    ActiveSheet.ChartObjects("Diagram 1").Activate
    ActiveChart.SeriesCollection(1).Paste
    s.delete ' slet billede igen


--- og undskyld jeg svarer på mine egne spørgsmål i dag...
End Sub
Avatar billede stefanfuglsang Juniormester
17. juni 2005 - 14:09 #4
halifax, jeg vil ikke afvise dit svar, men på den anden side ikke give fuldt point.
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 for alle niveauer og behov – find det kursus, der passer til dig

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.

Du kan også logge ind via nedenstående tjenester