excelde kayan nesne

[karakaçan]

" Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("Picture 1").Top = Target.Top
Shapes("Picture 1").Left = Target.Left
End Sub "

Kodu bu şekilde yaptım harika oldu nereye gidersem gideyim resim sürekli benimle geliyor. İlginç oldu
sağolun sayın Tiken

kayan nesne ile ilgili yukarıdaki kodu buldum fakat anlayamadığım şey "picture 1" excel sayfasında bulunan resmin adı mı ? bu resim yoksa başka bir dosyadamı olacak. bu konuda bilgisi olan var mı ?

 

[cellswhite]

Merhaba,

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("Picture 1").Top = Target.Top
Shapes("Picture 1").Left = Target.Left
End Sub

Shapes ismidir.

Shapes([b]1[/b]).Top = Target.Top

Sayfaya insert ettğiniz resmin ( objenin ) adını verir.

Shapes isimlerinide aşağıdaki koddan ulaşabilrsiniz.

say = ActiveSheet.Shapes.Count
For x = say To 1 Step -1
shapesisim = ActiveSheet.Shapes(x).Name & Chr(10) & shapesisim
Next
MsgBox shapesisim

Yazdıgınız kod ile "picture 1" objesi her hareketinizde imlecin oldugu yere gidecektir.

Umarım sorunuzu doğru anlamısımdır.

 

[kurish]

arkasdaşlar,
biz excelde belli bir aralık içerisinde bir logonun hareket etmesini istiyoruz. örn vermek gerekirse bir logo c2 ile c50 arasında biz mause aşağıya indirdikçe oda insin istiyoruz. bu konu hakkında yardımcı olabilir misiniz?

 

[Mahir64]

arkasdaşlar,
biz excelde belli bir aralık içerisinde bir logonun hareket etmesini istiyoruz. örn vermek gerekirse bir logo c2 ile c50 arasında biz mause aşağıya indirdikçe oda insin istiyoruz. bu konu hakkında yardımcı olabilir misiniz?

Merhaba
Logo resim olarak mı aktarılmış excel'e

 

[kurish]

örnek dosya koydum dosyada aşağıya dogru indirkçe logunun sol tarafta aşağıya inmesini istiyorum
yardımcı olabilirseniz çok sevinirim.

 

[Mahir64]

Merhaba

Sayfa1 kod bölümüne uygulayın

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Resim 1").Top = ActiveCell.Offset(2, 2).Rows.Top
End Sub

 

[kurish]

çok teşekkür ederim... dediğiniz gibi yaptım sayfa1 e yazdığımda kaydırma yaptı fakat dosyayı kapatıp açtığımda yapmamaya başladı nedeni ne olabilir?

 

[Mahir64]

çok teşekkür ederim... dediğiniz gibi yaptım sayfa1 e yazdığımda kaydırma yaptı fakat dosyayı kapatıp açtığımda yapmamaya başladı nedeni ne olabilir?

Tekrar merhaba
Sanırım dosyanız 2007 .xlsx uzantılı,
Makroyu ekleyin ve farklı kaydet/ Makro içerebilen excel çalışma kitabı olarak kaydedin

 

[kurish]

yok onuda denedim. başka bilgisayarda da denedim ama yapamadım

 

[Mahir64]

yok onuda denedim. başka bilgisayarda da denedim ama yapamadım

Mako seviyenizi kontrol edin orta veya düşük olarak ayarlayınız.
Geliştirici / Makro Düvenliği

Şeritte geliştirici yoksa

(Sol üst) Ofis simgesi / Excel Seçenekleri / Şeritte Geliştirici Sekmesini Göster
Seçin ve makro güvenliğini ayarlayın

 

[mancubus]

merhaba.

problem olmaması lazım.

çalışmayan dosyanızı ekleyin.


düzeltme:
sn. Mahir..
cevabınızı görmemiştim.

 

[kurish]

çok teşekkür ederim oldu.

 

[Mahir64]

çok teşekkür ederim oldu.

İyi çalışmalar :hey:

 

[kurish]

birşey sorabilirmiyim? bu özellik şu anda bir hücreyi seçtiğimizde aktif oluyor ya onun yerine scroll bar aşağıya indikçe logoda aşağıya inse olmaz mı?

 

[mancubus]

"Worksheet event"leri aşağıdaki gibi. Göreceğiniz üzere aralarında scroll bar ile ilgili olan yok.

Activate
BeforeDoubleClick
BeforeRightClick
Calculate
Change
Deactivate
FollowHyperlink
PivotTableAfterValueChange
PivotTableBeforeAllocateChanges
PivotTableBeforeCommitChanges
PivotTableBeforeDiscardChanges
PivotTableChangeSync
PivotTableUpdate
SelectionChange

 

[kurish]

hımm.. peki teşekkür ederim.