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
Kopiraj-Prilepi
Re: Kopiraj-Prilepi
Pozdravljeni,
Če vas pravilno razumem, potem vi želite sledeče:
Najprej v vaš VBA projekt dodajte vsaj eno Formo (tudi če je ne uporabljate), samo dodajte jo . Potem pa uporabite sledečo kodo
Če vas pravilno razumem, potem vi želite sledeče:
Koda: Izberi vse
ČE (je odlagališče prazno) POTEM zaključi proceduro
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
Matjaž Prtenjak
Administrator