Makro ile Worde Üst Bilgi ve logo ekleme

[omeryılmaz]

Kaydet Butonu ile aktifleşen Word Sayfasındaki Üst Bilginin Sol köşesine Image1' deki veya Dosyadaki Sağlık Bakanlığı Logosunun yerleştirilmesi gerekmektedir, Tüm uğraş ve araştırmalarıma rağmen başaramadım.........
Yardımlarınız için şimdiden şükranlarımı sunuyorum....

 

[leumruk]

Merhaba,
Sorunlu bölge olarak belirttiğiniz kısmı aşağıdaki ile değiştirin. Hem yol kısmında sorun vardı hem de resim ekleme kodunuzda. Açılan word dosyanız henüz kaydedilmediği için yol tanımlayamazsınız. Bunun için Activedocument.path yerine thisworkbook.path kullanın.

[COLOR="DarkGreen"][B]'--------------SORUNLU BÖLGE------------------------[/B][/COLOR]
    
path = ThisWorkbook.path & "\Logo.gif" ' Image1.Picture
objWord.Selection.InlineShapes.AddPicture Filename:=path
[COLOR="DarkGreen"][B]'----------------------------------------------------[/B][/COLOR]

 

[omeryılmaz]

Merhaba,
Sorunlu bölge olarak belirttiğiniz kısmı aşağıdaki ile değiştirin. Hem yol kısmında sorun vardı hem de resim ekleme kodunuzda. Açılan word dosyanız henüz kaydedilmediği için yol tanımlayamazsınız. Bunun için Activedocument.path yerine thisworkbook.path kullanın.

[COLOR="DarkGreen"][B]'--------------SORUNLU BÖLGE------------------------[/B][/COLOR]
    
path = ThisWorkbook.path & "\Logo.gif" ' Image1.Picture
objWord.Selection.InlineShapes.AddPicture Filename:=path
[COLOR="DarkGreen"][B]'----------------------------------------------------[/B][/COLOR]

Hocam Cevabınız için teşekkürler

Ancak Benim isteğim Word Üst Bilginin Sol tarafına uygun sekilde Logoyu yerleştirmek...

 

[assenucler]

Sayın leumruk;

Günaydın.

Benim içinde süper bir örnek oldu. Katkınız için teşekkürler.

Sevgi ve saygılar.

 

[omeryılmaz]

Word Üst Bilginin Sol tarafına uygun şekilde Logoyu ve Ortaya Kurum Antentini yerleştirmek...

 

[leumruk]

Merhaba,

'--------------SORUNLU BÖLGE------------------------
objWord.ActiveWindow.ActivePane.View.SeekView = 9
path = ThisWorkbook.path & "\Logo.gif" ' Image1.Picture
objWord.Selection.InlineShapes.AddPicture Filename:=path
objWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
objWord.Selection.InlineShapes.AddHorizontalLineStandard
objWord.ActiveWindow.ActivePane.View.SeekView = 0
'----------------------------------------------------

Ayrıca kodunuzda bulunan satırı aşağıdaki gibi değiştirin. TC ibaresinin kaymaması için. Eklenen kısmı kırmızı ile belirttim.

.Headers(wdHeaderFooterPrimary).Range.Text = [COLOR="DarkRed"]vbCrLf & [/COLOR]"T.C." & vbCrLf & " " & Sheets("Sayfa2").Range("A1").Value & " " & vbCrLf & " " & Sheets("Sayfa2").Range("A2").Value & "" & vbCrLf & " " & Sheets("Sayfa2").Range("A3").Value

NOT: Eğer istediğiniz gibi değilse olmasını istediğiniz biçimi word dosyasına elle girerek buraya ekleyiniz.

 

[omeryılmaz]

Word Çıktı Sayfasında Kurum Antentinin sol yanına Logo eşit şekilde sıkı komutu ile yerleşmesi gerekmekte. Dosya içersindeki ekran örneğinde olduğu gibi.....

 

[leumruk]

Örneği deneyiniz.

'--------------SORUNLU BÖLGE------------------------
objWord.ActiveWindow.ActivePane.View.SeekView = 9
path = ThisWorkbook.path & "\Logo.gif" ' Image1.Picture
objWord.Selection.InlineShapes.AddPicture(Filename:=path).Select
With objWord.Selection
    .Cut
    .PasteSpecial Link:=False, DataType:=13
    .ShapeRange.Width = 60
    .ShapeRange.Height = 60
    .ShapeRange.WrapFormat.Type = 3
    .ShapeRange.ZOrder 4
    .ShapeRange.Left = wdShapeLeft
End With
objWord.ActiveWindow.ActivePane.View.SeekView = 0
'----------------------------------------------------

 

[omeryılmaz]

Örneği deneyiniz.

'--------------SORUNLU BÖLGE------------------------
objWord.ActiveWindow.ActivePane.View.SeekView = 9
path = ThisWorkbook.path & "\Logo.gif" ' Image1.Picture
objWord.Selection.InlineShapes.AddPicture(Filename:=path).Select
With objWord.Selection
    .Cut
    .PasteSpecial Link:=False, DataType:=13
    .ShapeRange.Width = 60
    .ShapeRange.Height = 60
    .ShapeRange.WrapFormat.Type = 3
    .ShapeRange.ZOrder 4
    .ShapeRange.Left = wdShapeLeft
End With
objWord.ActiveWindow.ActivePane.View.SeekView = 0
'----------------------------------------------------

Word Sayfasının sol üst Köşesine Logo gelmektedir...

Bunun için desteğinizden dolayı şükranlarımı sunuyorum..


Şimdi; Diyabete karşı yazılarımızda ilgili yer ve kurumların ilgisini çekmek için Yazının diğer sağ Köşesine Diyabet Logosunu alması için nasıl düzenleme yapmalıyım..



Yardımlarınız için Şimdiden şükranlarımı sunuyorum..

 

[leumruk]

Merhaba,

'--------------SORUNLU BÖLGE------------------------
objWord.ActiveWindow.ActivePane.View.SeekView = 9
Ad = "Logo.gif"
Deg = 0
For r = 1 To 2
path = ThisWorkbook.path & "\" & Ad
Set res = objWord.Selection.InlineShapes.AddPicture(Filename:=path)
res.LockAspectRatio = 1
res.Select
With objWord.Selection
    .ShapeRange.WrapFormat.Type = 3
    .ShapeRange.ZOrder 4
    .ShapeRange.Left = Deg
End With
res.Height = 110
Ad = "diyabet_logo.gif"
Deg = 330
Next
objWord.ActiveWindow.ActivePane.View.SeekView = 0
'----------------------------------------------------

 

[Hoksisamuray1]

Merhabalar, Benim bir ord dosyam var. Her açıldıgından dosyanın sonunda kullandıgımız raporun sonunda firmanın logosu ve notu geliyor. Onu silip logo olarak ekleyip. Üstündeki link eklenen alanın üstüne de ufak bir logo ekleyerek kaydetmek istiyorum. Bunu kaydet makro ile yapamadım. Sıralamada eklenen logoları sayfanın basına alakasız yerlere atıyor. Bunu nasıl yapabilirim.? Altın üye olmadıgım için dosyalarıda ekleyemedim