...True Then
eskizom = ActiveWindow.Zoom
ActiveWindow.Zoom = 100
Set Adres = Range(s1.Cells(1, Target.Column), s1.Cells(4, Target.Column))
Dim Picture As Object
For Each Picture In s1.Shapes
If TypeName(s1.Shapes(Picture.Name).OLEFormat.Object) = "Picture" Then
Set yer1 =...
...As Shape
'Dosya seçme iletişim kutusunu aç
picName = Application.GetOpenFilename("JPG,*.jpg,PNG,*.png,GIF,*.gif", , "Select Picture")
'Eğer bir dosya seçilmediyse, makro işlem yapmaz
If picName = False Then Exit Sub
'Seçilen dosyanIn adInI ve yolu al...
...As Double
'Dosya seçme iletişim kutusunu aç
picName = Application.GetOpenFilename("JPG,*.jpg,PNG,*.png,GIF,*.gif", , "Select Picture")
'Eğer bir dosya seçilmediyse, makro işlem yapmaz
If picName = False Then Exit Sub
'Seçilen dosyanIn adInI ve yolu al...
..."Resim Dosyası", "*.jpg?", 1
File.Show
If File.SelectedItems.Count = 1 Then
DosyaY = DialogBox.SelectedItems(1)
End If
Image1.Picture = LoadPicture(DosyaY)
End Sub
ama
File.Filters.Add "Resim Dosyası", "*.jpg?", 1
bu satırda hata veriyor.
Yardımlarınız için şimdiden teşekkür ederim...
...yaparım.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim filePath As String
Dim img As Picture
If Target.Address = "$C$1" Then
Cancel = True
filePath = Application.GetOpenFilename("Resim Dosyaları...
...için Resim Seçiniz")
If fNameAndPath = False Then Exit Sub
Set img = ActiveSheet.Shapes.AddPicture(Filename:=fNameAndPath, _
LinkToFile:=False, SaveWithDocument:=True, _
Left:=1, Top:=1, Width:=-1...
...Declare PtrSafe Function FreeLibrary Lib "kernel32" (ByVal hLibModule As LongPtr) As Long
Private Declare PtrSafe Function OleCreatePictureIndirectAut Lib "oleAut32.dll" Alias "OleCreatePictureIndirect" _
(PicDesc As uPicDesc, RefIID As GUID, ByVal fPictureOwnsHandle As Long...
Aşağıdaki fonksiyon geliştirilebilir.
=K_PICTURE(Resim_Dosya_Yolu;Resim_Adı;Resim Boyutu;Resim_Yüksekliği;Resim_Genişliği)
Kalın yazı fontu ile belirtilen parametreler opsiyoneldir. Yani boş bırakabilirsiniz.
Resim_Adı = Sayfada resime vermek istediğiniz isimdir. (Örnek Resim-1)
Resim_Boyutu...
Rıdvan Hocam tekrar merhaba
Resimleri indirince satırı kopyalayıp başka sayfaya yapıştırdeğiştiğimizde resimleri en-boy oranı çok bozuluyor.
bununla ilgili bir öneriniz var mıdır?
teşekkürler,
Merhaba,
Aşağıdaki kodu kullanabilirsiniz.
Sub ResimleriKucult()
Dim satir As Long
Dim resimUrl As String
Dim resim As Picture
Dim ws As Worksheet
Set ws = ActiveSheet
For satir = 1 To ws.Cells(Rows.Count, "C").End(xlUp).Row
resimUrl =...
...kod işinizi görür.
Sub Excel_ile_Mail_Gönderme()
Call Kaydet
Dim OutApp As Object
Dim OutMail As Object
Dim table As Range
Dim pic As Picture
Dim ws As Worksheet
Dim wordDoc
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
'Tabloyu resme dönüştürme
Set...
...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 Image1.Picture
Else
MsgBox "Resim yok"
Exit Sub
End If...
...Target As Range, Cancel As Boolean)
Dim File_Path As Variant
File_Path = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
, "Select Picture to Import")
If File_Path = False Then Exit Sub
Cancel = True...
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.