[Yardım]  WORD TEXTFRAME

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

WORD TEXTFRAME

İleti#1)  serdar61 » 02 Arl 2019 17:24

Merhaba arkadaşlar,

Benim şöyle bir sorunum var , excelde bir sayfamda metin diğer bir sayfamda chartobject var. Bu ikisini belirli bir word formatımın içindeki textframe içine önce metni metnin altına chart gelecek şekilde atmam gerekiyor. metni ve chartı ayrı ayrı atabiliyorum ancak metni attıktan sonra alt satıra in grafiği yapıştır yaptıramadım bir türlü. Gidip üstüne basıyor. normal boş sayfa olsa yapılıyor ancak textframe içini kontrol etmekte biraz zorlandım. bu konuda yardımlarınıza ihtiyacım var bir çözümü olan varsa memnun olurum. kod bloğum aşağıdaki gibidir:

ThisWorkbook.Sheets("hb_eng").Range("a1", "a7").Copy 'metin kısmını copyalayıp word textframe içine atıyorum
With shp.TextFrame.TextRange
.Paste
End With 'buraya kadar sorun yok metni attım.

Sheets("TR_HB").Select
Sheets("TR_HB").ChartObjects("Chart 1").Activate
Selection.Copy 'chartı kopyalıyorum sonra gidip textframe içindeki metnin altına ilave etmem gerekiyor


shp.TextFrame.TextRange.Select 'textframe i seçtim

SendKeys "{End}", True 'sendkeys end yaparak imleci aşağıya indirmeye çalıştım

SendKeys ("^v"), True 've ctrl+v yaparak grafiği yapıştırmaya çalıştım ama olmuyor
Kullanıcı avatarı
serdar61
 
Kayıt: 12 Arl 2016 09:56
Meslek: memur
Yaş: 34
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Sogou ve 1 misafir

Bumerang - Yazarkafe