×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

place capture in clipboard in stead of writing it to file VBA macro

place capture in clipboard in stead of writing it to file VBA macro

place capture in clipboard in stead of writing it to file VBA macro

(OP)
hey all,

I have a vba macro which modifies the graphical properties of some parts in a hughe assy. when this is done I want to make a capture of this situation and paste it in powerpoint presentations. about this final actions I have 2 querries:

1. is there a way to place the capture on the clipboard in stead of writing it to a file using the capturetofile command. such that I can just use CTRL+V where I want it. when doing the capture action manually this is pretty straight forward but I couldnt figure it in VBA.
2. I placed the tree and compass in hide however in the lower right corner of the screen I still have that small axis system visible. is there any way of Hidding it or cropping it out?

any help is greatly appreciated.
Cheers,
Thomas

RE: place capture in clipboard in stead of writing it to file VBA macro

Hi,

1. There is a macro on this forum using paste directly in powerpoint, use search function to find it.
2. Maybe something like this ?

CODE --> CATScript

'change the picture size, which is by default active window size
Set win = CATIA.ActiveWindow
curH = win.Height 'save current window's Height
curW = win.Width 'save current window's width

sLF = Chr(10)
 win.Height = InputBox ("Here you can change the picture Height, the starting point is upper left corner", "Change picture Height", win.Height )
If win.Height = "" Then
    Exit Sub
End If

sLF = Chr(10)
 win.Width = InputBox ("Here you can change the picture Width, the starting point is upper left corner", "Change picture Width", win.Width )
If win.Width = "" Then
    Exit Sub
End If 

Regards
Fernando

https://picasaweb.google.com/102257836106335725208
https://picasaweb.google.com/103462806772634246699...

RE: place capture in clipboard in stead of writing it to file VBA macro

(OP)
whoow, awesome thanks Fernando!
That was exactly what I was looking for, works like a charm!

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources