Sayfa üzerine resimli nesne ekleme

Bu dosya, VBA ile sayfa üzerine şekil eklemeyi ve eklenen şekli resimle doldurmayı gösteren bir örnektir. Şekil, belirli bir hücre aralığının konumuna ve boyutuna göre oluşturulur.

Dosyanın içeriği​

• Sheet1: Boş çalışma sayfasıdır; şekiller makro çalıştığında bu sayfa üzerine eklenir.
• Module1: Test adlı makroyu içeren VBA modülüdür (24 satır).

Makrolar​

Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem yoktur; makro yalnızca etkin sayfaya şekil ekler ve yerel bir resim dosyasını okur.
Test makrosu sırasıyla şunları yapar:

1. E12:G15 aralığının sol, üst, genişlik ve yükseklik değerlerini kullanarak yuvarlatılmış köşeli bir dikdörtgen ekler ve adını ExcelDepo_1 yapar.
2. Bu şekli Duplicate ile çoğaltır, kopyanın adını ExcelDepo_2 yapar ve sol üst köşesini L12 hücresine taşır.
3. İlk şeklin dolgu rengini sarı yapar.
4. Kopya şekli C:\Temp\pic1.jpg yolundaki resimle doldurur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Resim dosyasını C:\Temp klasörüne pic1.jpg adıyla kaydedin; başka bir yol veya ad kullanmak için koddaki dosya yolunu değiştirin.
3. Alt+F8 ile makro listesini açın, Test makrosunu seçip çalıştırın.
4. Sarı dolgulu şekil E12:G15 aralığında, resimle doldurulmuş kopyası L12 hücresinde görünür.
5. Makroyu aynı sayfada yeniden çalıştırmadan önce mevcut şekilleri silin; aksi halde aynı adlı yeni şekiller eklenir.
6. Farklı bir konum için koddaki hücre aralıklarını değiştirin.