Visual Basic :: Resizing Embedded Worksheet

ListBox Embedded In Worksheet
Hi,

I'm trying to populate a listbox with words which are contained in a named range, but the idea is that the listbox contents change depending on which named range is typed into cell A1. The listbox is not on a form it is simply embedded in the worksheet.

The idea is that users type a word into cell A1 and the listbox is positioned in cell B1 down to about B10. Whatever word they type in cell A1 they are presented with a list of alternative words in the listbox (kind of like a thesaurus or dictionary idea except very limited in what they are likely to search for).

I have lots of named ranges which contain the alternative words so for example cell AB1 contains the word 'migraine' which is the name of the range then the cells below it contain alternative words e.g 'headache'.

So if a user types 'migraine' into cell A1 I want the list box to display 'headache' which is contained in the named range.

How do I tell the listbox to consider the term typed into cell A1 as a named range and thus display the contents of the range in the listbox?

I imagine I would need to have a formula in the input range of the list box but this doesn't seem possible.

I'm not even sure if my listbox is called 'ListBox1' because it is just embedded in the worksheet and not on a form.

Any help is very much appreciated!

Printing Embedded Ole Worksheet
I got an embedded ole worksheet in an access database and am looking for a way of printing it without opening the form.
So far I can get it to print as follows but there must be a better way

Private Sub Image_DblClick(Cancel As Integer)
Dim appexcel As Excel.Application
Dim wbExcel As Excel.Workbook
Dim shexcel As Excel.Worksheet
Set appexcel = New Excel.Application
Set wbExcel = appexcel.Workbooks.Add
Me.Image.SetFocus
DoCmd.RunCommand acCmdCopy
appexcel.Visible = True
appexcel.Range("A1").Select
appexcel.ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
appexcel.ActiveWorkbook.Close
End Sub

Many thanks
John

Worksheet Embedded Objects Don't Work
All of a sudden one day Command Buttons embedded on a worksheet quit functioning. I also noticed that if I try to insert any embedded object be it command button, text box or whatever in a current workbook or brand new workbook I get the error Cannot Insert Object. I've searched Help, looked at all the various menu protection items, searched various Excel forums and I can't find an answer. Any assistance will be greatly appreciated as this is driving me nuts.

Resize OLE Embedded Excel Worksheet
How do I resize the newly embedded worksheet in an OLE container?
Thanks

Excel Worksheet Embedded In Word
I use the following code to create an Excel worksheet embedded in my Word
doc:
Code:Dim shp as Shape
Set shp = ActiveDocument.Shapes.AddOLEObject(Anchor:=Selection.Range,ClassType _
:= "Excel.Sheet.8", FileName:="", LinkToFile:=False,DisplayAsIcon:=False)

Using more code, I can manipulate the contents of this worksheet.

BUT, I cannot work out how to control the size of the worksheet so that I
can see more of it. All properties that refer to height or width simply
enlarge the visible contents so that I see the same amount of the worksheet
but it's bigger.

How can I enlarge the rectangle that contains the embedded object, keeping
the contents the same size so that more of the contents are visible?

This is easy with the mouse - simply drag the borders when the object is
active but I cannot work out how to do this programmatically.

I've tried to turn on macro recording, resize the
rectangle, then turn off recording. What I have recorded is an empty Sub!!
I have tried various ways to record the actions but with no success

Please help me!!!!!!!!!!!!!

Edited by - Adagar on 4/16/2003 12:29:18 PM

Massive Slowdown With Embedded Worksheet In Powerpoint
Here's what i'm trying to do:
In excel I created a worksheet, a chart, and wrote VBA to carry out a simulation. The results of the simulation changes values on the worksheet and the chart updates. I am now trying to add this project into PPT to demonstrate the simulation.
In doing so, I have tried to embed the workbook into powerpoint and I have tried to link the workbook into powerpoint.
Long story short is that I have some new code written that carries out the simulation and it runs quite fast. As soon as I UPDATE the slide which shows my chart from the embeded workbook, my simulation now runs painfully slow.
If I close the slideshow and reopen it, the first time I run the simulation it goes fast, all other times it goes really slow. The slowdown seems to be when reading and writing to the worksheet. However, the use of "excel.application.screenupdating = false" makes no difference.
Does anyone have any idea what is going on or how to keep my simulation running fast?

Open/Edit Embedded Worksheet In WORD
I have been trying desperately to get a macro in word (and thus hopefully my VB app.) to simply find the embedded Excel sheet within a word document.
That was the easy part, the thing I am now believing may in fact be impossible, is getting it to then open the embedded worksheet (in MS Word) and 'Select-All' then 'Paste' it into an existing worksheet wihthin Excel.
By recording a new Macro, I try and do this (having it track the changes I make and thus writing a script for me), but ONLY when the macro is recording, the program will NOT allow me to either double-click the spreadsheet OR right click it (so I could then choose 'Edit' or 'Open').
I hope this function is not completely impossible, either through Word or VB, so If any of you experts out there know anyhting about this, your help would be GREATLY appreciated! thanks...

Update Shown Cells In Embedded Worksheet In Word
I have a Word document with an embedded Excel worksheet. I have certain macros in the worksheet (run by the user) that insert or delete rows. When this happens the embedded object is not automatically updated with the cells that should be shown. I know this can be done by dragging the borders of the object, but is there any way to do this programmatically? I've been at this most of the day. I can't find any propery or method of InlineShape that will do this.

The best I've come up with is to select the new correct cell range in the embedded worksheet, and paste it in Word as a new embedded worksheet, and then delete the old one. When you paste, the "selection size" is automatically correct. This isn't an ideal solution. For one thing the Excel document closes, since it's deleted, and the user has to right click|[Worksheet object]|[Open] again (on the new object).

Here's what I do now:

Code:
Dim xlwb As Excel.Workbook
Dim oCurrentList As Object

Set oCurrentList = ActiveDocument.InlineShapes(1)
oCurrentList.Activate
Set xlwb = oCurrentList.OLEFormat.Object
xlwb.Activate

xlwb.Sheets(1).Range("Plist").Copy
Selection.PasteSpecial Placement:=wdInLine, DataType:=wdPasteOLEObject
oCurrentList.Delete
By the way, I'd also like to know how to do this programmatically, right click|[Worksheet object]|[Open] -- so that the worksheet opens as a new window in Excel. [InlineShapes(x).OLEFormat.Open] doesn't do this. Seems [.OLEFormat.Open] and [.OLEFormat.Activate] and [.Activate] do the same thing...

Thank you for any help,
nick

Populating An Excel Worksheet Embedded In An Access Report With Data
IS IT POSSIBLE TO MANIPULATE DATA INSIDE AN EXCEL WORKSHEET THAT IS EMBEDDED IN AN ACCESS REPORT??? I'm beginning to think not. I've been trying for 2 days with no success.

I inserted worksheets in various ways, but let's say I insert a worksheet by doing the following:

In report design mode --> Insert --> Object... --> Create New --> Microsoft Excel Worksheet.

Now, I have a query. I want to populate the embedded, or linked, excel worksheet with the results of my query.

Access cannot create diagonal column headers which my client REQUIRES, and the "Rotate Text" ActiveX control is not clean enough. So, I am using an Excel worksheet for the formatting only. I would import data into the Excel Worksheet from Excel rather than Access, but unfortunately, since my query is a complex crosstab query with a parameter, I get errors when I try to write the SQL statement in Excel. Therefore, I need to embed the worksheet in my Access Report and populate it with data programatically. So far, all my attempts have failed.

At this point I've removed all the unnecessary complexity and all I have is this:

1 Table with two columns (id, name)
1 Query getting names from the table
1 Report with an embedded Microsoft Excel Worksheet

Can somebody please tell me how to get the names into the worksheet in the report?

Embedded Chart In A Worksheet And A Chart Exisiting On Its Own Sheet
what is the difference between a Chart embedded in a worksheet and a chart existing on their own sheets. i mean what is the difference between being embedded in a worksheet and existing on their own sheets.

i came across the statement on the MSDN site

Note Charts embedded in a worksheet are members of the ChartObjects collection, whereas charts that exist on their own sheets belong to the Charts collection.

Delete Worksheet, Then Create New Blank Worksheet With Same Name
Hi

I have a worksheet named "Harmonics", where I present to the user the results from my VB program.

But when the user re-runs the macro, I want to ensure that ALL the data on the worksheet is overwritten and no 'old' data is still there.

I thought the best way to do this would be to delete the entire worksheet at the start of the program then re-create the worksheet as a blank document ready for writing to. Is this a bit extreme? Would I be better to just delete all cells within the worksheet as opposed to the sheet itself?

Your help would be most appreciated.

And of course, some code to do what I want would be great!

Thanks,
Daryll

Separate Data In Worksheet Cells Then Add To New Worksheet
I have a spreadsheet with 9 columns and a variable number of rows. Each of the cells contains multiple values which include a date, time and location. I want to populate a second spreadsheet the the data from each of these cells. I have attached an example workbook which has the original data in SheetA, and the results I am trying to achieve in SheetB. The spreadsheed will be easier to understand than my explanation I think.

The data in the cells needs to be separated into individual cells in the new sheet, for each set of cell data, the associated data in columns 1 and 9 need to be added/repeated.

Is this possible?if yes, how do I achieve this?

How To Check If A Worksheet Exists In Worksheet Collection
Hi All,
I wanted to know if there is any method to check if a worksheet exists in worksheets collection.I want to check this by worksheet name.

Thanks in advance

Regards
Raghu

Changing Worksheet Name When Copying Worksheet
Hi guys I have an Excel problem. I am having a worksheet and i duplicate it when i need to have it more times. Therefore I use the following code:

Code:
ActiveWorkbook.Sheets("Template_Sheet").Copy After:=ActiveWorkbook.Sheets(1)
When I copy the "Template_Sheet" Worksheet I get one with the name "Template_Sheet (2)"
How can i make the new copied Worksheet have the name I choose for it?

Thanx for any advice

To Determine The Rows To Paste A Worksheet(blank Cells To Paste Next Worksheet)
hi all experts out there....

would llike u guys to help out with a problem i am facing....

the code below is to select each of the worksheet,copy it and paste it in worksheet (printer").....i got 3 worksheets to paste into worksheet ("printer")....worksheet("11 aug"),("12 aug") and ("18 aug")....i got no problem pasting the first two worksheets("11 aug") and ("12 aug")...but i got a problem pasting the last worksheet("18 aug").....i want to paste each worksheet with a offset of (3,0) but the last worksheet paste at another cell instead......i attach the excel doc name (total)(workbook) and the macro.....the ("sub regroup")....need to be improve..pls help ......thank a lot..."P

Code:
Sub regroup()
'
' regroup Macro
' Macro recorded 9/3/2003 by SGTANCKE
'

'
Sheets("11 Aug").Select
Rows("1:" & Sheet1.UsedRange.Rows.Count).Select
Selection.Copy
Sheets("Printer").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("12 AUG").Select
Rows("1:" & Sheet2.UsedRange.Rows.Count).Select
Selection.Copy

Worksheets("Printer").Activate
ActiveCell.Offset(rowOffset:=3 + Sheets("Printer").UsedRange.Rows.Count, columnOffset:=0).Activate
ActiveSheet.Paste

Sheets("18 AUG").Select
Rows("1:" & Sheet3.UsedRange.Rows.Count).Select
Selection.Copy

Worksheets("Printer").Activate
ActiveCell.Offset(rowOffset:=3 + Sheets("Printer").UsedRange.Rows.Count, columnOffset:=0).Activate
ActiveSheet.Paste

Columns("E:E").EntireColumn.AutoFit

End Sub

Copy From Worksheet To Worksheet??
I need to copy info from one cell in worksheet1 to another cell in worksheet2. The problem is I have a formulated cell in worksheet1 and when I copy from worksheet1 to worksheet2, it copies the formula. I need to copy the value only. Here's the code I'm using.

Worksheets("BT WORKSHEET").Range("A60").Copy
Worksheets("REQ.").Select
Worksheets("REQ.").Range("B11").Select
Worksheets("REQ.").Paste

Thanks for any help.

To Copy Worksheet At The End Of Other Worksheet
I WANT TO KNOW HOW TO COPY THE EXCEL WORKSHEET AT THE END OF OTHER WORKBOOK SHEET.
I HAVE WRITTEN CODE IN VB6.0 BUT IT OVERWRITE THE WORKSHEET WHILE COPYING.

Private Sub File1_Click()
Dim FileToCopy As String: FileToCopy = "T:PRODUCTIONPRODUCTION FILESELECTRONIC PRODUCTION CONTROLSMASTER_FILECAP 8 MASTER FOR RS232 V.95.xls"
Dim NewFile As String: NewFile = "T:PRODUCTIONPRODUCTION FILESELECTRONIC PRODUCTION CONTROLS2005" + File1.FileName
FileCopy FileToCopy, NewFile
Exit Sub
End Sub

Private Sub Form_Load()
Me.Show
Me.Caption = "Copying..."
File1.Path = "T:PRODUCTIONPRODUCTION FILESELECTRONIC PRODUCTION CONTROLS2005"

End Sub

Embedded Visual Basic Vs Embedded Visual C++
Hi,

Other than language syntax difference, which one is preferred to use? What are the difference and benefits?
Thks...

Edited by - roniwu on 10/7/2005 8:47:14 AM

Embedded VB
Anyone know of a good reference for winsock in vbce?

EMbedded VB?
Does anyone know of a good site for tutorials on learning eMbedded VB for making programs for Pocket PCs? I notice a lot of the commands have different syntax from VB 6 - but are still quite similar i just need something to help me get the hang of it

thanks

XP Embedded XPe
Hi

I have an app on VB6 that is running on a XPe platform, however now I need to make a new program and I was wondering of moving to RealBasic (due to the single file compiler, etc) but I don't seem to get anywhere running it, not even a demo app built from RealBasic.

Has any of you got experience with RealBasic and XPe?

A bit of advice here, do you think is a good move to switch to RB or I'm better off with VB6 for embedded devices?

I have been looking into .NET but with an overhead of 50MB.... not good.

Thanks

Ed

Embedded For/next
i'm making a program that will calculate compound interest based on the time

i have the first one like this

P = 25
R = 0.05
T = 100

For x = 1 To T
I = P * R
txt1.Text = P
P = P + I
Next x

the interest is calculated by years. now how can i embed another loop in there that will calulate by the months?

VB Vs EMbedded VB
For those who want to check out eMbedded VB 3.0, but want to avoid some pitfalls have a look at:

Frequently Asked Questions (FAQ) About eVB

INFO: What Does Visual Basic Have That VBCE Doesn't Have?

Additional sites:
vbce.com
www.devbuzz.com

Embedded VB
Just bought myself a nice CASIO EM-500 with Windows CE 3

Happy me, happy me.

After some browsing on the Microsoft site I downloaded the FREE "eMbedded Visual Basic".
That's looking real cool at first sight...
There are some nice controls and everything looks and feels like VB6, but it isn't.

I tried to convert a project I made with VB6. It took me a few days to realize that MVB3 is nothing more (or less) than VBScript with an IDE and some nice controls.
So you only have one variabele type: Variant, a pitty when you have binary files, like I have for my project

The generated code is (like the old vb3) interpreted by the VBScript engine and not compiled at all, goodbye "speed"

OK enough, I think I have to switch to MVC3, which is also !free! But I don't want C I would like to stick with VB ...

That's all ... see you later in an other forum...

EMBEDDED EXE
I am trying to create a new frame for an existing program that I do not have the code for. I want it to run within my application, as if it is a part of my app. Any tips?

Embedded WMP In VB .NET
I can embed WMP 9 onto my Form for pocket PC application witten in Visual Basic .NET??
I tried to use Windows Media Player Object which is in the COM components (for toolbox) but is not possible to stick onto Form!!! Icon is in the toolbox but I cannot drop onto Form !!! It's seem to me that it's not allowed to use WMP for pocket pc application !!!!

I have all these packages installed already :
.NET Framework 1.1
.NET Framework SDK 1.1
Microsoft pocket pc 2003 SDK
Visual Studio .NET enterprise
WM encoder 9 series
WM encoder 9 series SDK
WM format 9 series SDK
WM player 9 series SDK
WM player for pocket PC SDK

Embedded
I have created a small update tool for my software which remove some old DLLs and replace with new DLLs. Right now I am giving one folder with that tool which has all the new DLLs. Is there any way in VB6 that I can embedded all the DLLs in one executable as a resource file so that I have to give only one executable as an update tool

Plz Help

Embedded XP
Does anyone have experience with Embedded XP? If so I am considering using it and have questions regarding the stability, HD space required, RAM required, etc.

thans for any help with this
kevin

__________________

EMbedded VB
Just want to get an idea of how many of you guys are using eMbedded VB?

Regards,
Bruce.

Embedded VB
Embedded VB

I am planning to make some embedded application whit embedded visual basic. Is there somone that knows where i can get some low cost windows ce evaluation kits or single board pc's? Is vb .net a difference whit .net embedded?

EMbedded VB
Are there any good sites where I can learn how to use the eMbedded VB to develop applications for the Pocket PC? Is there a forum here or any tutorials?

Embedded Vb
DOes anyone know of a good place to get help for using embedded vb

thanx

EMbedded VB 3.0: GIF && JPG
Hello guys....

There are any of U know eMbedded VB 3.0. I need help on it. How to display picture (GIF & JPG format) in PictureBox?

TQ

Embedded VB
Can I access pocket excel or pocket word document list from the embedded VB application

Embedded VB
Hello.
I am trying to debug a COM object that is being used by an Embedded VB app.
The debug page in Embedde Visual Studio has the following fields:
3) Local executable (full path to my COM dll)
2) Remote executable - which is supposed to be full path to executable that calls the DLL.

The problem is, evb apps are interpreted. So I cannot specify it as a remote executable. I tried putting in the path to runtime environment (pvbload.exe) but that didn't work either.

Any hints/tips ?

Embedded VB
Hi, I am looking for a way to parse word docs into text files in the pocketpc environment, any ideas?

Thanks,Kyle

EMbedded VB
Hi,
I am working on a application development on Windows CE. I am using eMbedded Visual Basic. I have encountered a problem. I want to launch another application from my eMbedded VB application. "Shell" function does not work in eMbedded VB. Can any one help me in this regard?

Thanks in advance

Embedded Video?
Hi, I'd like to know if you can play a video (specifically an AVI) that's been embedded into the program. This would make updating easier on me and the users of my program, and would keep people from changing the video. I can already embed the video using Resource Hacker, but I don't know how to play it in VB. Anyone have ideas?

Using An Embedded Resource
VB.NET

I'm working on a simple card game to hone my programming skills. I have created a resource file called cards.resx. I have also compiled it into cards.resources. My problem is, What code do I need in order to access the bitmaps of the individual cards in the resource file?

All the cards in the resource file are named as follows :AceSpades.bmp, KingHearts.bmp, etc.

If I try to add it to the Solution Explorer it only gives me the option of selecting the resx file. I have added it to my project and in the properties I have changed the "Build Action" property to "Embedded Resource". I can see that the resulting EXE file size is larger so I am assuming it has embedded the resx file. I just need to know how to pull the bitmaps back out.

Thanks for any help you can give me.

Marty

How Do I Set An Embedded Doc To Read Only
Is there a way, through VBA or otherwise, to switch an embedded OLE object ( a word doc) between editable/uneditable?

In other words, can I determine who can and cannot edit an embedded doc?

Embedded Object
hi expert.. How can i embedded an excel spreadsheet in word document?

-----------
|
|
|word ==> Textbox value
-----------
(Enter)

When i press enter button the textbox value will be inserted within the excel spreadsheet cells. How can i do that? also how can i do that repeately like this..

if button is clicked for the 1st time the value will be inserted in range A1
if button is clicked for the 2nd time the value will be inserted in range A2
if button is clicked for the 3rd time the value will be inserted in range A3
if button is clicked for the 4th time the value will be inserted in range A4
and so on..

please help me.. thank you

Embedded Controls
Can anyone tell me how to get embedded controls to work?... I have always used userforms but would now like to switch to using embedded controls on a excel spreadsheet. I have inserted several TextBoxes and would, if you can imagine this, like to enter text, then hit the enter key and move to the next textbox to...you guessed it...enter more text...problem is I can enter text but thus far the only way I have been able to get to the next textbox is to select it with a mouse...

Help...Anyone?

Excel Embedded In OLE Box
Hi,

I have an OLE box and a save button on my VB form with the following code

Code:

Option Explicit

Const OLE_CreateEmbed As Long = 0
Const OLE_Activate As Long = 7
Const OLE_Close As Long = 9

Dim WithEvents LGRExcel As Excel.Workbook
Dim shtLGR As Excel.Worksheet

Private Sub cmdSave_Click()

Dim FileNum As Integer

'get file number
FileNum = FreeFile

'Open the file to be saved
Open "C:WebLOLERLGR.xls" For Binary As #FileNum

'Save the file
oleExcel.SaveToFile FileNum

'Close the file
Close #FileNum
'oleExcel.SaveToFile "C:WebLOLERLGR.xls"

End Sub

Private Sub LGRExcel_SheetChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Val(Right(Target.Address, 1)) < 3 Then

'do nothing

Else

MsgBox "Changed Range = " & Target.Address & vbCr & vbCr & _
"New Value = " & Target.Text

End If

End Sub

Private Sub oleExcel_GotFocus()

oleExcel.Enabled = True
oleExcel.SourceDoc = "C:WebLOLERLGR.xls"
oleExcel.Action = 0

With oleExcel.object

.ActiveSheet.Range("A2").Value = "Item Description"
.ActiveSheet.Range("B2").Value = "Detailed Description"
.ActiveSheet.Range("C2").Value = "Item Code"
.ActiveSheet.Range("D2").Value = "SWL"
.ActiveSheet.Range("E2").Value = "Serial No."
.ActiveSheet.Range("F2").Value = "Model"
.ActiveSheet.Range("G2").Value = "Plant ID"
.ActiveSheet.Range("H1").Value = "Details of Manufacture"
' shtLGR.Range("H2").Value = "Name"
' shtLGR.Range("I2").Value = "Certificate No."
' shtLGR.Range("J2").Value = "Date"
' shtLGR.Range("K1").Value = "If Load Tested"
' shtLGR.Range("K2").Value = "Proof Load"
' shtLGR.Range("L2").Value = "Load Test Certificate No"
' shtLGR.Range("M2").Value = "Status"

' With shtLGR.Shapes
'
' .AddLine(0,0,74,74)
'
End With

End Sub
If I type something in the embedded excel sheet and press the save button, it saves the file as Excel file. When I try to open the Excel file there is an error message "This file is not in a recognizable format" and if I press "OK" button in the message it shows the file with lots of characters which are not typed.

In my references "Microsoft Excel 11.0 Object Library" is ticked. I am working on Windows XP professional with MS-Office 2003

What is the problem. Can anyone please help

Regards

Varrey

Embedded HTML
I have just recieved a rather strange request for an existing application. One of my users wishes for me to include a HTML page in my application on a form. Essentailly they want my form to load a html page and allow the page to interact with the application much like the digital dashboard does in outlook e.g. Show a list of tasks in the html page and allow the user to start the task form by clicking on a task in the html page.
I have never done anything like this before and are hoping some of the gods in this forum have some ideas on how this can be accomplished?

Embedded Player?
I am working on a new video codec currently (not in VB - obviously).

I am going to release it with its own personal player like Quicktime and DivX do, but this will be a standalone player.

I have noticed many webpages such as movie trailers and such like have integrated (or embedded movie players). Such as when i click a .mov link in IE, it goes to a new window with an integrated mediaplayer (for this example, Quicktime).

Is it possible to create an embedded player like this in Visual BASIC?

Is the actual quicktime and mediaplayer embedded control just an activeX object added to a webpage? I am new to this kind of web development.

I dont follow understand how you could create something like this.

I mean are their any examples of embedded video players in VB? even using MCI would be usful.

Thanks in advance