Sorgu için arama sonuçları: picture

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

Deneyiniz. Option Explicit Public Sub Fit_All_Selected_Pictures() Dim pic As Picture Dim PicWtoHRatio As Single Dim CellWtoHRatio As Single Select Case TypeName(Selection) Case "DrawingObjects" For Each pic In Selection PicWtoHRatio =...

...Union([M5], [M13])) Is Nothing Then Exit Sub On Error Resume Next ActiveSheet.DrawingObjects.Delete Dim resimyolu As String Dim resim As Picture resimyolu = ActiveWorkbook.Path & "\" & Sheets(2).[M5] & ".jpg" Set resim = ActiveSheet.Pictures.Insert(resimyolu) With Range("V2") resim.Top = .Top...

ilginiz için teşekkür ederim fakat bu kodda çalışmadı ne m5 nede m13 değişince işlem yapmıyor

...<> "" Then If ActiveSheet.DrawingObjects.Count > 0 Then ActiveSheet.DrawingObjects.Delete Dim resimyolu$, resim As Picture resimyolu = ActiveWorkbook.Path & "\" & [M5] & ".jpg" If Dir(resimyolu) <> "" Then Set resim =...

...sabitlemesi bunu ortaya sabitleyecek şekilde revize etmem gerekiyor yardımcı olur musunuz? Teşekkürler şimdiden. Public Sub Fit_All_Selected_Pictures() Dim pic As Picture Dim PicWtoHRatio As Single Dim CellWtoHRatio As Single Select Case TypeName(Selection)...

...Intersect(Target, [M5]) Is Nothing Then Exit Sub On Error Resume Next ActiveSheet.DrawingObjects.Delete Dim resimyolu As String Dim resim As Picture resimyolu = ActiveWorkbook.Path & "\" & Sheets(2).[M5] & ".jpg" Set resim = ActiveSheet.Pictures.Insert(resimyolu) With Range("V2") resim.Top =...

....TextEffect.FontName = "Arial Rounded MT Bold" .Height = 50 End With sh.UsedRange.CopyPicture xlScreen, xlPicture my_slide.Shapes.Paste ''''''' Resize and reposition the picture With my_slide.Shapes(2)...

Tevfik Bey, Bu Ekran Geldi. run-time error "438": object doesn't support this property or method vba ekranında: If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object) = Me.Pictures Then Sarı renk oldu. hata verdi.