Sorgu için arama sonuçları: picture

...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 MyJpg...

...For Exit Sub End If Next If deg1 = 0 Then Adres = Worksheets(ActiveSheet.Name).Cells(Target.Row + dikey, Target.Column + yatay).Address Dim Picture As Object For Each Picture In s1.Shapes If TypeName(s1.Shapes(Picture.Name).OLEFormat.Object) = "Picture" Then yer =...

H Hocam Stok isimli, bir kaç cümle yazdığıma sayfada denedim ama birşey olmadı. Nerede hata yaptım

...Stok isimli sayfada çalışan makro: ' If Resim.Name = "1 Resim" Then ' If Resim.Name = "1 Metin kutusu" Then ' If Resim.Name = "Picture 1" Then Sub imza() For Each Resim In Sheets("Stok").Shapes If Resim.Name = "Picture 1" Then Resim.Copy ActiveSheet.Paste...

...Set sh = Sheets("nöbet listesi") sh.Activate Cells(i, 42).Copy Range("Y2").Select ActiveSheet.Paste sh.Range("D1:Q32").Select Selection.CopyPicture appearance:=xlScreen, Format:=xlPicture Application.Wait (Now + TimeValue("00:00:02")) Range("D170").Select ActiveSheet.Paste...

...Is Nothing Then yaz_satır = bulunan.Row On Error Resume Next dosyaYolu = .Cells(yaz_satır, 219).Value resim1.Picture = LoadPicture(dosyaYolu) TextBox14.Value = .Cells(yaz_satır, 219) TextBoxisemri.Value = .Cells(yaz_satır, 2) TextBoxmusteri.Value...

Merhaba, Sizin sorunuz resim getirmekle ilgili.. Bu başlıkla doğrudan ilintili değil.. Forumda insert+picture komutları ile arama yaparsanız bolca örnek olduğunu görebilirsiniz..

...Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("A1:A1000")) Is Nothing Then Exit Sub Dim sPicture As String, pic As Picture sPicture = Application.GetOpenFilename _ ("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _ ...

...Set f = ds.GetFolder(kls) dosya = kls & ComboBox1 & ".jpg" If ds.FileExists(dosya) Then Image2.Picture = LoadPicture(dosya) Else Image2.Picture = LoadPicture("") End If Sheets("PERSONEL_BİLGİLERİ").[D2:D65500].Find(ComboBox1.Value).Activate TextBox74 =...

merhaba hocam günaydın .benim sorunum from picture sekmesi çıkımıyor.onu nasıl ekliyebiirim

Bu özellik ofis 365 sürümünde bulunmaktadır.. Linkteki videoyu izleyiniz. https://support.microsoft.com/en-us/office/insert-data-from-picture-3c1bb58d-2c59-4bc0-b04a-a671a6868fd7

Arkadaşlar sayın hocalarım. Biliyorum size basit gelecek ama yapıyordum unuttum. Araştırdım bulamadım. UserForm'a arka plan fotoğraf koymak için, picture yazan kısımda (none) yazıyor. (Bitmap) yazarsa fotoğraf koyulup değiştirilebiliyor. Orayı nasıl (Bitmap) yapabilirim. Saygılarımla.

...= ActiveWorkbook.Name Sayfa_Adı = ActiveSheet.Name ReDim ara1(50000): ReDim ara2(50000) son = 0 ekle1 = 0 ekle2 = 1 j = 0 top1 = 20 Dim Picture As Object For Each Picture In ActiveSheet.Shapes 'burası resimleri kopyalıyor bende 13 olarak gözüküyor sizde 8 olarak gözükebilir If...

...Set pptApp = New PowerPoint.Application Set pptPres = pptApp.Presentations.Add say = 0 ReDim ara1(50000): ReDim ara2(50000) Dim Picture As Object For Each Picture In ActiveSheet.Shapes 'burası resimleri kopyalıyor bende 13 olarak gözüküyor sizde 8 olarak gözükebilir If Picture.Type = 13...

...ActiveWorkbook.Name Sayfa_Adı = ActiveSheet.Name Set pptApp = New PowerPoint.Application Set pptPres = pptApp.Presentations.Add say = 0 Dim Picture As Object For Each Picture In ActiveSheet.Shapes 'burası resimleri kopyalıyor bende 13 olarak gözüküyor sizde 8 olarak gözükebilir If...

...ActiveWorkbook.Name Sayfa_Adı = ActiveSheet.Name Set pptApp = New PowerPoint.Application Set pptPres = pptApp.Presentations.Add say = 0 Dim Picture As Object For Each Picture In ActiveSheet.Shapes 'burası resimleri kopyalıyor bende 13 olarak gözüküyor sizde 8 olarak gözükebilir If...

çok Teşekkür ederim Hailt Hocam, iyiki varsınız ! bir şey daha istesem çok olur mu acaba? Burada Word Dosyası yerine Power point ' e veri göndermek istesek bu yapılabilir mi acaba? Aynı şekilde word sayfaları yerine power point sunularına atmak tekrar teşekkürler, iyi çalışmalar.

...= 10 '50 'sağ .TopMargin = 15 'üst .BottomMargin = 10 '20 ' alt .Orientation = wdOrientPortrait yükseylik = 176 End With End With Dim Picture As Object For Each Picture In ActiveSheet.Shapes 'burası resimleri kopyalıyor bende 13 olarak gözüküyor sizde 8 olarak gözükebilir If Picture.Type...

...Set WordApp = CreateObject("Word.Application") With WordApp .Visible = True Set doc = .Documents.Add End With With WordApp WS.Shapes("Picture 1").Copy .Selection.Paste End With doc.Paragraphs(doc.Paragraphs.Count).Range.InsertParagraphAfter For i = 2 To 6 WS.Cells(2...

Selamlar bu sefer istediğim gibi ortaya geldi ancak ortalayıp hücrenin tepesine geldi. Benim istediğim hem yatay hemde dikey olarak hücreyi ortalaması. Şuanda sadece yatay olarak ortalandı dikey olarak en tepede. Ayrıca 2 den fazla resim seçince uygulama yapmıyor. Yardımcı olabilirseniz...