Dim Resim As OLEObject
Dim Adres As Range
yer = ThisWorkbook.Path & "\Resimler\" & "\" & Range("J" & ActiveCell) & ".jpg"
SavePicture Image1.Picture, yer
sat = ActiveCell
sut = "J"
Set Adres = Range(Cells(sat + 1, sut).Address)
Dim Picture As Object
For Each Picture In ActiveSheet.Shapes
'If...
...ediyorum.
Dim Resim As OLEObject
Dim Adres As Range
yer = ThisWorkbook.Path & "\Resimler\" & "\" & Range("J" & ActiveCell) & ".jpg"
SavePicture Image1.Picture, yer
sat = ActiveCell
sut = "J"
Set Adres = Range(Cells(sat + 1, sut).Address)
Dim Picture As Object
For Each Picture In...
...ekle
aşağıdaki kodu çalıştır.
Private Sub CommandButton1_Click()
Dim myClp As clipboard
Set myClp = CreateObject("clipbrd.clipboard")
myClp.Clear
ActiveWindow.RangeSelection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Image1.Picture = myClp.GetData
MsgBox "İŞLEM TAMAM"""
End Sub
..."Geçerli hücre seçimi yapmadınız", vbInformation, "Uyarı"
Exit Sub
End If
s1.DrawingObjects.Delete
Range(baslangic & ":" & son).Copy
s1.Pictures.Paste
Application.CutCopyMode = False
Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
Set XL_Chart = Charts.Add
For...
...vb. eklenecek resimi seçin,
Seçilen resim, önceden seçtiğiniz hücreye (örneğin B2), tam olarak gelecektir.
KOD ;
Sub InsertPicture()
Dim sPicture As String, pic As Picture
sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
...
...Exit For
End If
Next
Dim SütunAdı As String
Set s1 = Sheets("BİLGİ SEÇME")
Set s2 = Sheets("BİLGİ SEÇME SAYFASI")
Dim Picture As Object
For Each Picture In s1.Shapes
If TypeName(s1.Shapes(Picture.Name).OLEFormat.Object) = "OLEObject" Then
If...
Cevabımı buldum dostlar gün gelir birine lazım olursa eğer
Private Sub CommandButton1_Click()
Dim res As Picture
Dim x As Long
Dim ps As Long
ps = Range("g20000").End(xlUp).Row
For x = 3 To ps
On Error Resume Next
Range("A" & x).Select
Set res = Me.Pictures.Insert(Range("E" &...
Private Sub CommandButton1_Click()
Dim res As Picture
Dim x As Long
Dim ps As Long
ps = Range("g20000").End(xlUp).Row
For x = 3 To ps
On Error Resume Next
Range("A" & x).Select
Set res = Me.Pictures.Insert(Range("E" & x).Value)
res.Width = 10
res.Height = 272
Next...
Merhaba,
Çalışma kitabında ki logoları başka logo ile değiştirmek istiyorum.
Kodu butona atayacam, değiştir dediğimde; picture 3 , pc'den belirttiğim yol üzerinden yeni resim ile değişecek ama bunu tüm çalışma kitabında uygulayacak.
Not: Picture 3 sabit, Pc den çekilecek yeni logonun yolu...
...İlgili kodlar için örnek, CommandButton1 'i kullandığınız buton ismi ile değiştiriniz.
If CbFaturaTuru.ListIndex < 0 Then
CommandButton1.Picture = LoadPicture("C:\Users\" & Environ("UserName") & "\Desktop\Loglar\İkonlar\incele.jpg")
CommandButton1.PicturePosition =...
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.