Filmleri Excel'e Aktarma

[legendtr]

Çokkk sağlasınız sayın TURİST hocammm yardımlarınıza nasıl teşekkür etsem bilemedimmm yaww

Son bir şey daha istesem sayın hocam çok olduysam lütfen kızmayınnnnn

Bu kadar acelesi olmasa da sayın hocam herhangi bir filmin çözünürlüğünüde oluşturma tarihli dosyanın içine ekleyebilirmiyiz diyecektimmmm

Örneğin bu dosya 1280*720 piksel şeklinde mesela ama bunun fazla acelesi yok ben konu sıcak iken isteyeyimm dedimmm

iyi güzel bi hafta sonu değiştimeniz dileğiyle

herşey için çok teşekkürler

 

[turist]

Çokkk sağlasınız sayın TURİST hocammm yardımlarınıza nasıl teşekkür etsem bilemedimmm yaww

Son bir şey daha istesem sayın hocam çok olduysam lütfen kızmayınnnnn

Bu kadar acelesi olmasa da sayın hocam herhangi bir filmin çözünürlüğünüde oluşturma tarihli dosyanın içine ekleyebilirmiyiz diyecektimmmm

Örneğin bu dosya 1280*720 piksel şeklinde mesela ama bunun fazla acelesi yok ben konu sıcak iken isteyeyimm dedimmm

iyi güzel bi hafta sonu değiştimeniz dileğiyle

herşey için çok teşekkürler

Çözünürlük ilave edilen dosya eklenmiştir.
İyi günlerde kullanınız.

 

[legendtr]

Herşey için çooooooooookkk Teşekkürler

Sayın TURİST Hocam

Size bir kod öğretememiş olsamda sizden bir çok kod öğrendimm

Artık duacı olmak sırası bende, bizde, bu konularda bir şeyler öğrenmeye çalışan yolun başındakilerde...

Hayırlı pazarlar...

Sayın hocam...hayatınızda başarılar...İyi çalışmalar

 

[navarch]

selamlar arkadaşlar
üstünden 10 yıl geçmiş ama nette böyle bir program ararken bu forumu buldum. bu link ve program çalışıyor mu?

 

[navarch]

program için foruma üye oldum hatta indirebilmek için altın üyelik aldım.
program çalışıyor ama malesef çözünürlükleri listelemedi. geliştiricinin emeğine sağlık ancak ihtiyacım olan kısmı çalışmıyor malesef. yapılabilecek birşey var mı?

 

[ÖmerBey]

Merhaba,
Ekteki dosyayı dener misiniz?

FrameWidth = oFolder.GetDetailsOf(oItem, 316)
FrameHeight = oFolder.GetDetailsOf(oItem, 314)

 

[navarch]

gönderdiğiniz dosyayı windows güvenlik gerekçsiyle çalıştırmıyor malesef. virus içerebilir makrolar çalıştırılmıyor gibi bişeyler diyor.

 

[ÖmerBey]

22 nolu mesajdaki dosyayı kullandım, sadece paylaştığım kodlardaki kırmızı sayıları değiştirdim. Bilgisayarınızda çalışan dosyayı o kısımları değiştirerek kullanabilirsiniz.
İyi çalışmalar...

 

[navarch]

22 nolu mesajdaki dosyayı kullandım, sadece paylaştığım kodlardaki kırmızı sayıları değiştirdim. Bilgisayarınızda çalışan dosyayı o kısımları değiştirerek kullanabilirsiniz.
İyi çalışmalar...

çok teşekkür ederim hocam. hallettim. elinize sağlık.

 

[navarch]

22 nolu mesajdaki dosyayı kullandım, sadece paylaştığım kodlardaki kırmızı sayıları değiştirdim. Bilgisayarınızda çalışan dosyayı o kısımları değiştirerek kullanabilirsiniz.
İyi çalışmalar...

selamlar
office 2021 aldım. excell marcolarından çözünürlük kısmı yine çalışmaz oldu. yardımcı olabilir misiniz?
belki bir şekilde macrolarını bozmuşumdur diye yeniden indirdim ama sonuç aynı.
windows 10 + Office 2021 Professional Plus kullanıyorum. malesef macroları kendim yazabilecek bilgim yok. yardım ederseniz sevinirim.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz, kod içinde kullanacağınız sayı kodlarını bulmanıza yardımcı olacaktır.
26 numaralı mesajdaki satırlardaki sayıları bunlarla değiştirip deneyiniz.

Sub kod()
Dim met As String, a As Integer
For a = 1 To 500
    If CreateObject("Shell.Application").Namespace("C:\").GetDetailsOf(, a) Like "*Çerçeve*" Then
        met = met & CreateObject("Shell.Application").Namespace("C:\").GetDetailsOf(, a) & " - " & a & vbLf
    End If
Next
MsgBox met
End Sub