Kopiraj-Prilepi

Pomoč pri izdelavi makrov
Odgovori
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Kopiraj-Prilepi

Odgovor Napisal/-a BJ »

Pozdravljeni!
Kopiram nek tekst in ga prilepim v "Shapes".
Potreboval bi nekaj v smislu: "If "ni ničesar kopirano" Then Exit Sub
Lep pozdrav BJ
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Kopiraj-Prilepi

Odgovor Napisal/-a admin »

Pozdravljeni,

Če vas pravilno razumem, potem vi želite sledeče:

Koda: Izberi vse

ČE (je odlagališče prazno) POTEM zaključi proceduro
Najprej v vaš VBA projekt dodajte vsaj eno Formo (tudi če je ne uporabljate), samo dodajte jo :). Potem pa uporabite sledečo kodo

Koda: Izberi vse

Sub nek_vas_makro()

  ' vaš makro nekaj dela.....
  
  
  ' ko želite kopirati iz odlagališča
  Dim odlagalisce: Set odlagalisce = New DataObject
  odlagalisce.GetFromClipboard
  
 
  ' poskusite vzeti besedilo iz odlagališča
On Error GoTo Napaka
  If (odlagalisce.GetText = "") Then Exit Sub
On Error Resume Next
  
  ' če je na odlagališču besedilo, ga vzamete
  Debug.Print "Na odlagališču je tole:", odlagalisce.GetText
  Exit Sub
  
Napaka:
End Sub
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Re: Kopiraj-Prilepi

Odgovor Napisal/-a BJ »

Hvala! :?
Odgovori