Hücreye ortala

[sevindi2002]

Merhaba
aşağıdaki kod ile çağrılan resmi hücre içinde ortalayacak şekilde değiştirirseniz.
sevinirim. Saygılar.

With Range("M8")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic

 

[Husgvarna]

Merhaba
aşağıdaki kod ile çağrılan resmi hücre içinde ortalayacak şekilde değiştirirseniz.
sevinirim. Saygılar.

With Range("M8")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic

Örnek dosyanız var mı?

 

[sevindi2002]

Örnek dosyanız var mı?

http://www.excel.web.tr/attachment.php?attachmentid=7150&d=1225999648

Bu linkte sayın Husgvarna

 

[Husgvarna]

Ek dosyanıza göre aşağıdaki gibi olabilir.Kırmızı bölümü artırıp eksilterek ayarlayabilirsiniz.

         With Range("D2")
            For Each oPic In Me.Pictures
                If oPic.Name = .Text Then
                    oPic.Visible = True
                    oPic.Top = .Top
                    oPic.Left = .Left
                  [COLOR="Red"] oPic.ShapeRange.IncrementLeft 6
                  oPic.ShapeRange.IncrementTop 6[/COLOR]
                    Exit For
                End If
                Next oPic

 

[sevindi2002]

Teşekkür ederim,
Bu kodlara göre hücreye ortalanamıyor onladığım kadarıyla.

 

[Husgvarna]

Teşekkür ederim,
Bu kodlara göre hücreye ortalanamıyor onladığım kadarıyla.

Merhaba.
Doğrudur; dosyadan veya tarayıcıdan "Ekle" nen resim seçilmiş hücrenin
en sol ve üst olacak şekilde ekleniyor. Ayarları kodlarla siz yapabilirsiniz.

 

[sevindi2002]

İlginize, Bilginize, Yüreğinize sağlık. Çok Teşekkürler Sayın Husgvarna,