• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Yardım: ToolBox Menüsüne WebBrowser Yok

  • Konbuyu başlatan Konbuyu başlatan BedriA
  • Başlangıç tarihi Başlangıç tarihi
B

BedriA

Katılım
3 Haziran 2017
Mesajlar
797
Excel Vers. ve Dili
2007, 32
Arkadaşlar,

Office 2007 Enterprise sürümünü kullanıyorum.
VBA Toolbox menüsüne WebBrowser nesnesi ekleyemedim bir türlü.

System32 klasöründe gerekli dosya var ama seçeneklerde WebBrowser e dair bir şey bulamıyorum.

Veya userform üzerine başka nasıl hareketli resim ekleyebilirim?

Yardımcı olur musunuz?
 
Son düzenleme:
VBA editörde Tools / Additional Controls menüsünden Microsoft Web Browser' i seçerseniz. Toolbox'a eklenecektir.

Hareketli resim için bazı makrolar mevcut. Bir nevi zamanlayıcıyla ayarlanmış. Player gibi.
Seçtiğiniz resimleri belli zaman aralıklarıyla arka arkaya oynatıyor.

Gif editörle kare kare jpeg yakalayıp kaydedip makrolarla bu resimleri arka arkaya oynatabilirsiniz.
Ama bence bu çok etkili bir yöntem değil. Sistemi de yorar bu şekilde yapmak.


Webbrowser nesnesini ekledikten sonra.

UserForm_Activate içine

Kod: 
WebBrowser1.Navigate ("C:\sil\test.html")
kodunu eklerseniz.

Açılışta gif eklediğiniz html sayfası açılır.

Html kodunu bu şekilde yazarsanız. Webbrowser da scrollbarlar aktif olmaz.

Kolay gelsin :)

Kod: 
<html>
<head>
</head>

<body style="overflow: hidden; margin: 0; border: 0;">
    <img src="resim.gif" />
</body>
</html>
 
netcini' Alıntı:
VBA editörde Tools / Additional Controls menüsünden Microsoft Web Browser' i seçerseniz. Toolbox'a eklenecektir.

Hareketli resim için bazı makrolar mevcut. Bir nevi zamanlayıcıyla ayarlanmış. Player gibi.
Seçtiğiniz resimleri belli zaman aralıklarıyla arka arkaya oynatıyor.

Gif editörle kare kare jpeg yakalayıp kaydedip makrolarla bu resimleri arka arkaya oynatabilirsiniz.
Ama bence bu çok etkili bir yöntem değil. Sistemi de yorar bu şekilde yapmak.


Webbrowser nesnesini ekledikten sonra.

UserForm_Activate içine

Kod: 
WebBrowser1.Navigate ("C:\sil\test.html")
kodunu eklerseniz.

Açılışta gif eklediğiniz html sayfası açılır.

Html kodunu bu şekilde yazarsanız. Webbrowser da scrollbarlar aktif olmaz.

Kolay gelsin :)

Kod: 
<html>
<head>
</head>

<body style="overflow: hidden; margin: 0; border: 0;">
    <img src="resim.gif" />
</body>
</html>
Genişletmek için tıkla ...


Additional Controls açılmıyor ki bende. Saatlerdir uğraşıyorum, olmuyor.
 
Ama onun da hakkından geldim:
2016 da yüklü, oradan ekledim, 2007'de de eklendi.

Siz böyle cevap verdikçe ben sorarım. Bu döngüyü
kesecek bir kod yazmanızı öneririm. :)

Çok teşekkür ederim.
 
Rica etsem aşağıdaki linkteki hareketli resim scrolbar çıkmayacak şekilde, kodu yazabilir misiniz?

HTML adresi:

<a href="http://www.hareketligifler.net/cat-okul-276.htm"><img src="http://www.hareketligifler.net/data/media/276/okul-hareketli-resim-0053.gif" border="0" alt="okul-hareketli-resim-0053"/></a>
 

Ekli dosyalar

  • azmun.gif
    azmun.gif
    30.9 KB · Görüntüleme: 6
Son düzenleme:
Merhabalar

UserForm_Activate de diğer kodların sonuna bu kodları eklerseniz, 3 sn sonra webbrowser görünmez olacaktır.

Kod: 
 PauseTime = 3
    Start = Timer
    Do While Timer < Start + PauseTime
        DoEvents
    Loop
WebBrowser1.Visible = False

Diğeri içinse bu kodu kullanabilirsiniz.

Kod: 
<html>
<head>
</head>

<body style="overflow: hidden; margin: 0; border: 0;">
    <img src="http://www.hareketligifler.net/data/media/276/okul-hareketli-resim-0053.gif" />
</body>
</html>
 
netcini' Alıntı:
Merhabalar

UserForm_Activate de diğer kodların sonuna bu kodları eklerseniz, 3 sn sonra webbrowser görünmez olacaktır.

Kod: 
 PauseTime = 3
    Start = Timer
    Do While Timer < Start + PauseTime
        DoEvents
    Loop
WebBrowser1.Visible = False

Diğeri içinse bu kodu kullanabilirsiniz.

Kod: 
<html>
<head>
</head>

<body style="overflow: hidden; margin: 0; border: 0;">
    <img src="http://www.hareketligifler.net/data/media/276/okul-hareketli-resim-0053.gif" />
</body>
</html>
Genişletmek için tıkla ...

Hocam ikinci kodu nereye kopyalamam gerekiyor?
 
O kod ile bir html dosyası oluşturmanız gerekiyor.

Notepad'ı açın kodları yapıştırın.

Farklı kaydet diyip. Uzantı olarak tüm dosyaları seçin. Ve dosya uzantısını html olarak yazın.

Örn. test.html


Daha sonra userform_activate içindeki bu kodu html dosyanızı nereye oluşturduysanız ona göre değiştirin.

WebBrowser1.Navigate ("C:\sil\test.html")
 
Ve sonunda oldu.
Çok teşekkür ederim.

Son soru:
Gif resmini webbrowser otomatik sığdırmak için ne yapmalı?
 
Son düzenleme:
Additional Controls açılmıyorsa aşağıdaki uygulamayı bir dene



1-Başlat / Çalıştır = Regedit

2-HKEY_CLASSES_ROOT\CLSID anahtarına gelip üzerindeyken sağ tıklayıp "İzinler" e basıyoruz.
( Ya da HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID yolu da olabilir)

3-Administrators(Kullanıcı Adı\Administrators) için "Tam Denetim" ve "Oku" kısımlarını "İzin ver" olarak seçip "Gelişmiş" düğmesine basıyoruz.

4-Açılan ekranda "İzinler" tabındayken Administrators(Kullanıcı Adı\Administrators) 'a tıklayıp
"Tüm bağımlı nesnelerdeki izin girdilerini burada gösterilen ve bağımlı nesnelere uyanlarla değiştir" kutusunu
işaretliyoruz ve "Uygula" deyip çıkan uyarıya da "Evet" diyoruz sonra da "Tamam" deyip çıkıyoruz...
Böylece Additional controls'un açılmama sorunu çözülmüş oluyor.

buraya kadar işlemleri yaptıktan sonra bilgisayarı kapatıp yeniden açın

ayrıca aşağıdaki linki irdeleyiniz.

http://www.excel.web.tr/f48/additional-control-sorunu-t97570.html

görsel video
 
Merhabalar.

Otomatik resize olayı nasıl olur bilemiyorum. Ama img tag nın
width (Genişlik), height (genişlik) özellikleri ile resim boyutu ile oynama yapabilirsiniz.

Eklediğiniz browser nesnesinin genişlik ve yükseklik özelliklerini vba editörden bakıp.

Resim boyutunu uygun piksele ayarlayabilirsiniz.

Mesela aşağıdaki örnekte resim genişliği 100 piksel olarak ayarlanır.
Yüksekliği ise 100 piksele göre oranlanır.

Browser nesnesinin boyuna göre hight yada width ile ayarlama yapabilirsiniz. :)


Kod: 
<img src="http://www.hareketligifler.net/data/media/276/okul-hareketli-resim-0053.gif" width="100" />

BedriA' Alıntı:
Ve sonunda oldu.
Çok teşekkür ederim.

Son soru:
Gif resmini webbrowser otomatik sığdırmak için ne yapmalı?
Genişletmek için tıkla ...
 
halit3' Alıntı:
Additional Controls açılmıyorsa aşağıdaki uygulamayı bir dene



1-Başlat / Çalıştır = Regedit

2-HKEY_CLASSES_ROOT\CLSID anahtarına gelip üzerindeyken sağ tıklayıp "İzinler" e basıyoruz.
( Ya da HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID yolu da olabilir)

3-Administrators(Kullanıcı Adı\Administrators) için "Tam Denetim" ve "Oku" kısımlarını "İzin ver" olarak seçip "Gelişmiş" düğmesine basıyoruz.

4-Açılan ekranda "İzinler" tabındayken Administrators(Kullanıcı Adı\Administrators) 'a tıklayıp
"Tüm bağımlı nesnelerdeki izin girdilerini burada gösterilen ve bağımlı nesnelere uyanlarla değiştir" kutusunu
işaretliyoruz ve "Uygula" deyip çıkan uyarıya da "Evet" diyoruz sonra da "Tamam" deyip çıkıyoruz...
Böylece Additional controls'un açılmama sorunu çözülmüş oluyor.

buraya kadar işlemleri yaptıktan sonra bilgisayarı kapatıp yeniden açın

ayrıca aşağıdaki linki irdeleyiniz.

http://www.excel.web.tr/f48/additional-control-sorunu-t97570.html

görsel video
Genişletmek için tıkla ...

Çok sağolun Halit Hocam.
 
netcini' Alıntı:
Merhabalar.

Otomatik resize olayı nasıl olur bilemiyorum. Ama img tag nın
width (Genişlik), height (genişlik) özellikleri ile resim boyutu ile oynama yapabilirsiniz.

Eklediğiniz browser nesnesinin genişlik ve yükseklik özelliklerini vba editörden bakıp.

Resim boyutunu uygun piksele ayarlayabilirsiniz.

Mesela aşağıdaki örnekte resim genişliği 100 piksel olarak ayarlanır.
Yüksekliği ise 100 piksele göre oranlanır.

Browser nesnesinin boyuna göre hight yada width ile ayarlama yapabilirsiniz. :)


Kod: 
<img src="http://www.hareketligifler.net/data/media/276/okul-hareketli-resim-0053.gif" width="100" />
Genişletmek için tıkla ...

Çok sağolun.
Aynen dediğiniz gibi yaptım.
Webbrowser alanına uygun boyutta bir gif almak veya gifi alana göre boyutlandırmak dışında bir seçenek yok gibi.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst