Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 10-08-2015, 05:10 PM
macropod's Avatar
macropod macropod is offline selecting shape in header only Windows 7 64bit selecting shape in header only Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

Since shapes can have names, if you name one (or know the default name Word has allocated to it) you can reference it by that. Alternatively, you can loop through them using code like:
Code:
Dim i As Long
With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
  For i = 1 To .Shapes.Count
    With .Shapes(i)
      'change a property
    End With
  Next
End With
The problem with looping through a shape collection or referencing them by index #, though, is that the position on-screen doesn't determine the index #; that is determined by where the shape is anchored and what other shapes are anchored at the same position.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
  #2  
Old 10-09-2015, 12:04 AM
mhagi mhagi is offline selecting shape in header only Windows 7 64bit selecting shape in header only Office 2010 64bit
Novice
selecting shape in header only
 
Join Date: Oct 2015
Posts: 8
mhagi is on a distinguished road
Default selecting shape in header only

Hi,

thanks for your answer. Could you give me a hint, how to address a shape anchored to a specific paragraph with a specific format.

Aim of the macro is
a) to insert Company logo in Header (and footer) if printing in pdf
b) delete/hide logos in Header and footer if printing on Company paper
and this thru all sections with different page layout and whatever.
And - there could be additional shapes if users include 3rd Party logos in documents and those not be deleted at all.

I could go thru all the shapes and identify my search object(s) by height or width, but was looking for an easier solution.

I'm not really THE vba expert and lazy as hell - always hoping WWW has a solution i can understand ("dim objects" are the high of my know how, so nothing above that!).

And I hoped it would be possible to only work with headers or footers. Now I have to look at both and I'm afraid, this will slow the macro down a lot.

Thanks nonetheless
Reply With Quote
Reply



Similar Threads
Thread Thread Starter Forum Replies Last Post
Selecting Texts mohsen.amiri Word 5 02-19-2015 11:50 PM
selecting shape in header only Selecting First Columns mohsen.amiri Word Tables 1 09-01-2014 01:08 AM
Can command Advanved Filter do without selecting header(i.e. just process cells)? Aquinax Excel 3 08-10-2013 05:16 PM
selecting shape in header only Excel vba adding field in word table/shape in a header Hdr Excel 1 02-04-2013 04:40 PM
selecting shape in header only locking shape within shape cpwljaw Drawing and Graphics 1 08-28-2012 12:13 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 10:26 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft