Merhaba,
Sayfaya eklediğim resmi, eklediğim alanda bir metin kutusu var olduğunu varsayarak, resmi en arkaya göndermesi için bu kodu nasıl revize edebiliriz.
(Örn, aşağıdaki alana sertifika şablonu ekleyeceğim ve metin kutularının en önde durmasını istiyorum)
...sadece 1 adet bulunan görselin boyutunu nasıl düzenleyebiliriz?
sayfa içindeki görseli bulacak ve bunu tanımlayacak Set img = ActiveSheet.Pictures
Not: sayfa içindeki görsel sürekli değiştiği için isimlendirmek mümkün olmuyor.
yardımlarınız için şimdiden teşekkürler,
iyi akşamlar.
Sub...
teşekkürler bu oldu ama debug modunda adımlayarak gittiğimde resmi alıyor ekran görüntüsünü maile ama direk çalıştır dediğimde maile boş görüntü alıyor.Debug da aldığı ekran görüntüsü mail içinde tam istediğim gibi tam sayfa ama gönder dediğimde gelen mailde resim çok aşırı küçülmüş şekilde geliyor.
Sub mail_gonder()
Dim alan As Range
Dim ws As Worksheet
Dim pic As Picture
Dim picPath As String
Dim shp As Shape
mailkonu = Range("AD1").Value
Mail = Range("AD2").Value
mailcc = Range("AD3").Value
mailmesaj = Range("AD4").Value
sonsatir =...
Sayın Tamer bey tekrar merhaba,
Oluşturduğunuz kodlar ile deneme çalışmalarım gayet güzel çalıştı. Lakin gerçek verilerim ile çalışmaya başladığımda "grafik göster" butonuna tıklayıp grafiklerimin gösterileceği formu açıp açılmasını istediğim grafik butonuna bastığımda şöyle bir uyarı alıyorum...
Sayın Tamer bey,
İlginiz için çok teşekkür ederim. İstediğim şekilde oluyor kesinlikle tüm grafikler içinde kolayca çoğaltabiliyorum kodu.
Saygılarımı sunuyorum, Tamer bey.
...aşağıdaki kodları kopyalayın
Public Sub showChart(s As Integer)
Dim sTempFile As String
Dim oChart As Chart
Me.Image1.Picture = LoadPicture("")
sTempFile = Environ("temp") & "\temp.gif"
Set oChart = Worksheets("GRAFIK").ChartObjects("Grafik-" & s).Chart...
Merhaba,
Deneyiniz.
Option Explicit
Sub Insert_Picture()
Dim My_Cell As Range
Dim Select_Shape As Variant
Dim My_Shape As Variant
Select_Shape = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
, "Lütfen...
Hocam çok teşekkür ederim ama yine hücrelerin üzerine ekledi. Belirtilen boyutta ve doğru yere ekledi ama hücre içine gömülü olmadı. Olmadı başka çözüm bulacağım.
Sub InsertPicture()
Dim sPicture As String, pic As Picture
sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
, "Select Picture to Import")
If Val(Len(sPicture)) = 0 Then Exit Sub
Sheets("Ayarlar").Select
Adres =...
A2 hücresi nasıl değişiyor?
Ayrıca Image nesnesi userform üzerinde olduğu için başına bunu eklemeniz gerekir.
UserForm1.Image1.Picture = LoadPicture("")
...Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
Image1.Picture = LoadPicture("")
End Sub
Resim Yükleme
Private Sub ListBox5_Click()
Range("G3") = Me.ListBox5
Set Grafik = Shapes("Grafik1").Chart
Grafik.Export...
...kodla denedim olmadı yada ben yapamadım
teşekür ederim bilgilendirme ve yardımlarınız için ayrıca...
şu kodla işim çözüldü
Dim xPic As Picture
On Error Resume Next
Application.ScreenUpdating = False
For Each xPic In ActiveSheet.Pictures
xPic.Placement = xlMoveAndSize...
Merhaba,
PdfVBALib.dll ile çözümü
Private Sub CopyPictureToUserForm_Click()
Dim ParcaFolder As String
Dim PdfFile As Variant
ParcaFolder = Environ("TEMP") & "\PDFaraclar"
PdfFile = Environ("TEMP") & "\PDFaraclar\TempPdf.pdf"
' Geçici klasör varsa içini boşalt, yoksa...
...Dim imagePath As String
imagePath = ActiveWorkbook.Path & "\" & Range("A" & Target.Row).Value & ".jpg"
Dim MyJpg As Picture
On Error GoTo jpgYok ' Eğer klasörde ve hücre içeriğiyle aynı isimde jpg dosyası yoksa direk jpgYok satırına git
Set...
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.