View Single Post
  #2  
Old 18-03-2004, 07:02
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default Re: "Edit bitmap" from Script or via COM

Not directly, but you can use Windows API to send the same message to CorelDRAW's main window as the menu/toolbars do or you can use SendKeys to select the menu item (need to select the bitmap first using Shape.CreateSelection):

Code:
Sub EditBitmap()
    Dim s As Shape
    Set s = ActivePage.FindShape(Type:=cdrBitmapShape)
    If Not s Is Nothing Then
        s.CreateSelection
        SendKeys "%be"
    End If
End Sub
This will edit the first bitmap encountered on the page...
Reply With Quote