Tekrar merhaba,
web ortamında ekli dosyada yer alan kodu budum,
epey uzun ve karışık bir kod....
önce clipboard' da yer alan öğeyi bir klasöre resim olarak kayıt ediyor, sonra buradan image nesnesine yükleyebiliyoruz,
Burada daha önce kayıt edilen resim ile aynı isimde kayıt etmek istediğimiz...
Merhaba,
Userform açıkken; Ekran Alıntı aracından alınan görseli, Image nesnesine yapıştırmak için aşağıdaki kodu oluşturdum fakat hata veriyor,
Nasıl bir kod düzenlenebilir?
desteğiniz için şimdiden teşekkürler,
iyi akşamlar.
Private Sub CommandButton1_Click()...
...çalışan kod aşağıda
Function kopyalanan()
Dim obj As Object
Set obj = CreateObject("HtmlFile")
kopyalanan = obj.parentWindow.clipboardData.GetData("text")
End Function
Private Sub UserForm_Click()
metin = Split(kopyalanan, Chr(32))
say = UBound(metin)
For i = 0 To say...
...Option Explicit
Sub Kopyala()
Dim DataObject As Object
Set DataObject = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
DataObject.SetText Range("D1").Value
DataObject.PutInClipboard
MsgBox "Veri kopyalandı." & vbCr & vbCr & Range("D1").Value, vbInformation
End Sub
Benim önerdiğim koda ekleme yapın şeklinde paylaşım yapmışlar.
Deneyiniz.
Option Explicit
Sub My_Paste()
Dim Clipboard As Object, Copy_Data As Variant
Set Clipboard = VBA.CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Clipboard.GetFromClipboard
Copy_Data =...
...olmuyor
Anca yapıştırılan veri tek paragraf ise yani içinde boş satır yoksa en alta boş satır ekliyor.
siz bunu denerseniz görünür. Ben "Clipboard Magic" isimli pano yapıştırıcı program ile bütün verileri kopyalayıp
sonra Excele aktarıyorum. İçinde boş satır olan veya olmayan karışık...
Korhan Bey selamlar
yukarıdaki son kodda farkettiğim bir durum
hücreye veriyi yapıştırdıktan sonra en alta boş satır açıyor. Sizin boş satırları silmek için hazırladığınız kod ise bu boş satırı silmiyor.
Bu durum özellikle ComboBox'da veri seçerken çift paragraf gibi gördüğü için hata veriyor.
Korhan Bey sizi tekrar rahatsız ediyorum. Kusura bakmayın.
yazdığınız kod çok güzel çalıştı. Fakat başka bir kodun düzelttiği işleme engel oldu. Böyle bir durum olabilir mi?
Daha önce çift tıklayarak yapıştırdığım verileri (Sizin koddan önce) aşağıdaki adreste 14. mesaj ile anlatmak istediğim...
Korhan Bey ilginize çok teşekkür ederim. Kod çalışıyor.
Bu koda bir ekleme ile yapıştırma işleminden sonra imleç bir alttaki hücreye gidebilir mi? Yani kod'a "Enter" komutu eklenecek.
Selamlar...
...Private Sub Workbook_Open()
Application.OnKey "^{v}", "My_Paste"
End Sub
Boş bir modüle;
Option Explicit
Sub My_Paste()
Dim Clipboard As Object, Copy_Data As Variant
Set Clipboard = VBA.CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Clipboard.GetFromClipboard...
size bir adet clipboard.dll dosyası gönderiyorum bunu
c:\windows\SysWOW64\ ve c:\windows\System32\ dosyalarına kopyalayın.
daha sonra aşağıdaki işlemleri yapın
Bilgisayardan başlangıçdaki uygulamalardan cmd yazıp arama yaparak komut istemi dosyasını yönetici olarak aç.
1-klasöre giriş
cd...
...referanslara clipbrd.dll dosyası yüklü olmalı
Private Sub CommandButton2_Click()
Dim myClp As Object
Set myClp = CreateObject("clipbrd.clipboard")
myClp.Clear
myClp.setData UserForm1.Image1.Picture, 2 '‘The 2 is for bitmaps
If Not Image1.Picture Is Nothing Then
myClp.setData...
Merhaba arkadaşlar
Siteden bir Linki kopyalıyorum. ( CTRL + C ) ->
command buton kullanarak sadece -> https://i.hizliresim.com/32jnyas.png kısmını tekrar hafızaya nasıl alabilirim ?
* Not : uzantı herzaman png dir.
yardımcı arkadaşa teşekkürler.
...sorun yoktur.
Eski - Daha önceden yaptığımız çalışmada bu makro 1-2-3 lü olarak ayarlamıştık. " Resimleri birlestir2.xlsm " dosyasında " clipboard.dll " dosyası Reference VBA PROJECT eklentisinde olması gerek internetten dll dosyasını indirdim. ilgili alana eklemek istediğimde eklemeye izin...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.