xight

Sub ResizeShapesToFullsize()
	Dim w As Integer
	Dim h As Integer
	w = ActivePresentation.PageSetup.SlideWidth
	h = ActivePresentation.PageSetup.SlideHeight

	Dim sld As Slide
	Dim sh As Shape

	targetNameArr = Array("Picture 6", "Content Placeholder 6")

xight

Sub CenteringShapes()
	targetNameArr = Array("Picture 6", "Content Placeholder 6")

	Dim sld As Slide
	Dim sh As Shape

	For Each sld In ActivePresentation.Slides
		For Each sh In sld.Shapes
			For Each targetName In targetNameArr
				If sh.Name = targetName Then

xight

Sub SendtoBack()
	Dim sld As Slide
	Dim sh As Shape

	targetNameArr = Array("Picture 6", "Content Placeholder 6")
	
	For Each sld In ActivePresentation.Slides
		For Each sh In sld.Shapes
			For Each targetName In targetNameArr
				If sh.Name = targetName Then

xight

' usage
' Call("Sheet1", "A1", "Z100")

Sub findMergedCell(strWorkSheet As String, strStartCell As String, strEndCell As String)
	Dim cl
	Dim msg
	Dim rng
	rng = strStartCell & ":" & strEndCell
	
	For Each cl In Worksheets(strWorkSheet).Range(rng)

xight

*** /System/Library/Automator/Watermark PDF Documents.action/Contents/Resources/tool.py	2014-09-10 07:34:59.000000000 +0900
--- tool.py	2014-11-18 15:38:01.000000000 +0900
***************
*** 26,32 ****
  
  def createImage(imagePath):
  	image = None
! 	provider = CGDataProviderCreateWithFilename(imagePath)
  	if provider:
  		imageSrc = CGImageSourceCreateWithDataProvider(provider, None)