exceldeki tabloyu word e resim olarak yapışma

[muzzymania]

exceldeki tabloyu ( bir alanı ) word e resim olarak yapışmak istiyorum sonrada worde yapıştırdığım o şekli pdf olarak farklı kaydediyorum , bu işletmi hergün yapıyorum bunun bir tuşa ataması yapılabilrimi

not : tablonun şeklinden dolayı wordde 1 sayfa ve o sayfanında yatay olması kafi

bunların olması mümkün müdür acaba
yardım ederseniz sevinirim

 

[muzzymania]

dosya ekte ;

word dosyasının uzantısıda

D:\Documents and Settings\mkaslan\My Documents\GUNLUK TGA\Günlük Takipteki Kredilerin Durumu.doc

şeklinde .....

tekrar tşk ederim

 

[leumruk]

Merhaba,
Aşağıdaki kodu kendi dosyanıza ekleyiniz. References bölümünden Microsoft Word 12 ....'yı etkinleştirin. PDF'yi word dosyanızın bulunduğu klasöre kaydeder.

Sub Aktar()
yol = "D:\Documents and Settings\mkaslan\My Documents\GUNLUK TGA\"
dsy = "Günlük Takipteki Kredilerin Durumu"
Set wd = CreateObject("word.Application")
wd.Visible = True
wd.Application.Documents.Open yol & dsy & ".doc"
Range("a1:w25").CopyPicture
wd.Selection.Paste
wd.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
yol & "Günlük Takipteki Kredilerin Durumu" & ".pdf" _
, ExportFormat:=wdExportFormatPDF
End Sub

 

[muzzymania]

çok teşekkür ederim

wd.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
yol & "Günlük Takipteki Kredilerin Durumu" & ".pdf" _
, ExportFormat:=wdExportFormatPDF
kısımda hata veriyor ama sanırım references kısmndan , o nerede dir , References bölümünden Microsoft Word 12 ....'yı etkinleştirme nasıl yapılır

 

[leumruk]

çok teşekkür ederim

wd.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
yol & "Günlük Takipteki Kredilerin Durumu" & ".pdf" _
, ExportFormat:=wdExportFormatPDF
kısımda hata veriyor ama sanırım references kısmndan , o nerede dir , References bölümünden Microsoft Word 12 ....'yı etkinleştirme nasıl yapılır

Merhaba,
PDF dönüştürme satırının çalışması için office programınızın 2007 ya da üzeri versiyonda olması gerekir. 2003 yüklü bir bilgisayarda denemişseniz bundan dolayı hata almış olabilirsiniz.
Eğer bilgisayarınızda 2007 yüklü ise PDF eklentisini yüklememiş olabilirsiniz. Bu eklentiyi microsoftun sitesinden ücretsiz indirip kurabilirsiniz.
Referansı ise şu yolu takip ederek etkinleştirebilirsiniz.
VBA sayfasını açın> Tools>References bölümünde tüm referansları görebilirsiniz.

Eğer 2003 yüklü bir bilgisayarda çalışıyorsanız. Bilgisayarınızda PDF dönüştürme programının yüklü olması gerekli. Dönüştürme programı yüklü ise makro kaydet yöntemini kullanarak word dosyanızı pdf'ye çevirerek kodlarını elde edip, size önerdiğim kodun ilgili satırındaki kodla değiştirin.

 

[muzzymania]

çoooooooooook teşekkür ederim 2007 de yapıp exceli kapatıp açınca oldu elinize zekanıza bilginize sağlık
bu siteyi seviyorum......