satır düzenini korumak

[acarselcuk1]

Sub AÇIKLAMA_EKLE()
On Error Resume Next
Sheets("Sayfa2").Range("A1").ClearComments
For Each Hücre In Selection
If Hücre <> "" Then
Sheets("Sayfa2").Range("A1").AddComment
Sheets("Sayfa2").Range("A1").Comment.Visible = False
If Sheets("Sayfa2").Range("A1").Comment.Text = "" Then
Sheets("Sayfa2").Range("A1").Comment.Text Text:=Hücre.Value
Else
Sheets("Sayfa2").Range("A1").Comment.Text Text:=Sheets("Sayfa2").Range("A1").Comment.Text & " " & Hücre.Value
Sheets("Sayfa2").Range("A1").Comment.Shape.Height = 100
Sheets("Sayfa2").Range("A1").Comment.Shape.Width = 250
End If
End If
Next
End Sub
sağolsun COST_CONTROL bey makromu hazırladı fakat çalışma kitabına açıklama olarak kaydederken satırlar birbirine giriyor ve 300,00 rakamını 300 olarak yazıyor. bunda düzenleme yapılabilirmi ?

 

[Levent Menteşoğlu]

Aslında sorunuzuna hücredeki açıklamaya seçilen alanın resmini ekleyerekte çözüm bulmak mümkündür. Ekli dosyayı inceleyin.

Sub resimekle()
On Error Resume Next
Set s1 = Sheets("Sayfa2")
Selection.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste
genislik = Selection.Width
yukseklik = Selection.Height
Selection.Cut
Set grafik = s1.ChartObjects.Add(Left:=s1.[a1].Left, Top:=s1.[a1].Top, Width:=genislik, Height:=yukseklik)
grafik.Chart.Paste
grafik.Chart.Export "c:\xresimx.gif"
grafik.Delete
s1.[a1].ClearComments
Set ekle = s1.[a1].AddComment
ekle.Text Text:=""
With ekle.Shape
.Fill.UserPicture "c:\xresimx.gif"
.Width = genislik
.Height = yukseklik
End With
Kill "c:\xresimx.gif"
MsgBox "Açıklama oluşturulmuştur"
End Sub

 

[acarselcuk1]

say&#305;n leventm
te&#351;ekk&#252;r ederim. hani derlerya suya sabuna dokunmadan aynen &#246;yle olmu&#351;.
ellerinize sa&#287;l&#305;k.

 

[acarselcuk1]

say&#305;n leventm bey yukar&#305;daki &#246;rnekte bana yard&#305;mc&#305; olmu&#351;tu. bu sorunum &#231;&#246;z&#252;ld&#252; ama akl&#305;ma bir&#351;ey daha tak&#305;ld&#305;. bu yol harici manuel olarak a&#231;&#305;klamaya resim eklenebilirmi. nas&#305;l ? ilgilenen herkese te&#351;ekk&#252;rler...............

 

[Levent Menteşoğlu]

Elbette yap&#305;l&#305;r, zaten kod ile yap&#305;labilen i&#351;lemlerin b&#252;y&#252;k &#231;o&#287;unlu&#287;u el ile de yap&#305;labilir.

-A&#231;&#305;klamay&#305; g&#246;r&#252;n&#252;r yap&#305;n.
-A&#231;&#305;klama kutusunu se&#231;erek sa&#287;-klik yap&#305;n.
-A&#231;&#305;klama bi&#231;imlendiri se&#231;in.
-Renkler ve &#231;izgiler-dolgu-dolgu efektleri-resim-resim se&#231; ile resim ekleyebilirsiniz.

 

[acarselcuk1]

&#231;ok te&#351;ekk&#252;r ederim. benim mesai bitti size iyi ak&#351;amlar

 

[acarselcuk1]

merhaba arkadaşlar :
dün busoruma cevap aldım ama uygulayamadım. benim açıklama düzenle seçeneğimde resim ekle seçeneği yok. üzerinde belki çok duruyorum ama belkide hiç umulmadık bir yerde bu bilgi benim veye başka kişilerin işine yarayabilir. umarım kimseyi boşuna meşgul etmiyorumdur. sayfa görüntüsünü ekteki resimle beraber gönderiyorum. ilgilenenlere çok teşekkür ediyorum...

 

[acarselcuk1]

say&#305;n leventm bey in bana verdi&#287;i cevab&#305; tekrar okudum ve versionu 2003
benimki 2002 oldu&#287;undanm&#305; bu se&#231;ene&#287;i g&#246;remiyorum acaba? 2002 de olamazm&#305;?

 

[Levent Menteşoğlu]

Sa&#287;-kliki a&#231;&#305;klaman&#305;n i&#231;inde de&#287;il tam kenar&#305;nda yapacaks&#305;n&#305;z. E&#287;er b&#246;yle bir &#246;zellik olmasayd&#305; kodda hata verirdi.

 

[acarselcuk1]

say&#305;n leventm
te&#351;ekk&#252;r ederim sonunda sayenizde yapabildim. sayg&#305;lar...