VIEW doc word in form but at 70% not 100% 1

[sal21]

First experince.

I need to show in form the attached word doc, but visualize it, at a zoom of 70%, not 100%...

https://files.engineering.com/getfi...-8095-4863-84b9-a471d263eaaf&file=Fattura.zip

 

[combo]

You have set the Zoom property, path: Document>Window>View>Zoom. VB code here.

combo

 

[strongm]

>need to show in form

How are you currently showing "in form"?

 

[2009luca]

No idea!
(Sal21)

 

[strongm]

So, let's break this down. Your primary question is:

How do I show a Word document on a VB6 form?

Is that correct?

 

[2009luca]

Yes

 

[combo]

You may find this useful.

combo

 

[strongm]

Drop an OLE container control onto the form. Click 'Canc el' in the resulting Insert Object dialog.

Then in code you can open any word doc you like as follows:

OLE1.CreateEmbed "pathtomyfile", "Word.Document"

And that's pretty much it.

You can then access and automate the word document via OLE1.Object

(one challenge with this is your next requirement - zooming out - as the Zoom method suggested by combo doesn't work with the window shown by the OLE control)

 

[strongm]

>Zoom method ... doesn't work

I think I may have a solution to the Zoom issue. Quick question before I put the effort in to an example - are you just using wanting to VIEW the Word document, not interact with it to edit etc?

 

[2009luca]

not interact with it to edit etc!
Only show It, lock It for edit.

 

[strongm]

Ok .. in that case I've got a basic Proof of Concept working. just need a tiny tidy up before posting.

 

[2009luca]

As usual tks!

 

[strongm]

Just to wet your appetite ...

[URL unfurl="true"]https://res.cloudinary.com/engineering-com/video/upload/v1651152929/tips/wodzoom_lcohpa.mp4[/url]

 

[strongm]

OK, enough teasing ...

You will need a form with:
a) Picturebox which will host our zoomed view control (which is also a picturebox). Call it OLEProxieHost. Give itr a different colour background (i use the Application Workspace colour, )
b) Another picturebox, placed inside the first picturebox; call it OLEProxieView
c) horizontal scrollbar
d) A label
e) an OLE control, hidden (either visibility set to none, or outside the form borders (feel free to leave this with default name, OLE1)

Note I only use OLEProxieHost as a cheap way to restrict the zoom limits of the OLEProxieView. It is not a criotical part of the idea

And then copy and paste this code into your form module:

[COLOR=blue]Option Explicit

Private myscale As Single

Private Sub Form_Load()
    OLE1.SizeMode = vbOLESizeAutoSize [COLOR=green]' ensures we have an enhanced metafile picture in the OLE container[/color]
    OLE1.CreateEmbed "f:\testing.docx", "Word.application" [COLOR=green]' Here is where we load our word doc[/color]
    OLEZoom = 75 [COLOR=green]' initial zoom %[/color]
End Sub

Private Sub OLEZoom_Change()
    Label1.Caption = Format(OLEZoom / 100, "0%")
    DrawOLEView
End Sub

Public Sub DrawOLEView()
    myscale = OLEZoom / 100
    OLEProxieView.Width = OLE1.Picture.Width * ScaleX(1, 8, 1) * myscale
    OLEProxieView.Height = OLE1.Picture.Height * ScaleY(1, 8, 1) * myscale
    OLEProxieView.AutoRedraw = True
    OLEProxieView.Cls
    [COLOR=green]' This is the line that does all the hard work[/color]
    OLE1.Picture.Render OLEProxieView.hDC, 0, 0, OLE1.Picture.Width * ScaleX(1, 8, 3) * myscale, OLE1.Picture.Height * ScaleY(1, 8, 3) * myscale, 0, OLE1.Picture.Height, OLE1.Picture.Width, -OLE1.Picture.Height, 0&
    OLEProxieView.AutoRedraw = False
    OLEProxieView.Refresh
End Sub[/color]

Altrernatively, just try this zipped vb6 project

 

[sal21]

strongm!!!!
Tks work perfect!

 

[strongm]

Have you considered issuing a purple star 9'great Popst') to any of your recent threads, such as

thread222-1816156
thread222-1816151
thread222-1816138
thread222-1814392
thread222-1813872

This not only encourages those who have helped you to help you again in the future, but also makes it easier for future visitors with similar questions to identify threads that might help them