VBA code to insert pictures in a column of cells
I have a folder of 99 pictures with filenames: image01.jpg, image02.jpg up
to image99.jpg. All of these images are small, and the same size.
I want to insert them (in order) in a column of cells (A1, A2, to A99) using
VBA. The images should be embedded, not linked. Resizing cells to the right
size would be a nice extra, but not necessary - it's easy in this case to
resize manually. Thanks for looking at my question - and I hope to hear some
I passwod protected by VBA modules so that no one could see them. But
have just come back from holidays forgetten my passwords and now
can't see them!
Any ideas how I can recover the
Message posted from http://www.ExcelForum.com
If you are using a newer version of excel that excel 97, then you will
either have to remember it or use a commercial password cracking program. If
you are using Excel 97 there is a free program called vbakey.exe that will
tell you your vba password.
Outgoing mail is certified Virus Free.
Checked ...array in VBA
A few days ago I saw an answer to a post that showed the VBA equivalent of
using an array worksheet formula with ctrl+shift+enter. I forgot to copy
that answer for later use, now I can't find it anymore. Anybody who knows
what I mean? If so, please tell me where to find the post.
"Jack Sons" <firstname.lastname@example.org> wrote in message
> Hi all,
> A few days ago I saw an answer to a post that showed the VBA equiva...excel vba
I have set up my sheet to protect using a password name login which the
runs the macros. It is set up so that the sheet's cells cannot b
edited, but the person can copy/paste the info onto another sheet.
This is a problem because there are hidden cells which contai
sensitive data. Any ideas
Message posted from http://www.ExcelForum.com
Hi, just a comment that i just found out, check out this
link that I was refered too. That password that you
setup doesn't do squat when you have access to this...
I was mad when I saw this, when mean...HELP WITH VBA
I am trying to finish writing some simple program.
My problem is that when I try and change the arguement from SELECTION
CHANGE to CHANGE, it doesn't work. Can someone help?
Private Sub Worksheet_Change(ByVal Target As Range)
If Worksheets("Sheet3").Range("B3").Value = 2 Then
My second problem is that I would like my data rather than appearing in
a cell, appear in a TEXT BOX. What do I do?
Copying your exact same post from 3 days ago word...VBA
Ok, all you expert Excel users may think this is dumb.....but what is VBA?
And what do you use it for? I looked around and can't figure a thing out.
Visual Basic for applications. Used to write macros/programs. As a
"Kim" <Kim@discussions.microsoft.com> schrieb im Newsbeitrag
> Ok, all you expert Excel users may think this is dumb.....but what is
> And what do you use it for? ...Letter Writing Assistant selection based on Smart List Lookup
We had a great opportunity to use the letter writing assistance to send out a
notice to any vendor used within the last 6 months. Using the smartlist
lookup up we can see those vendors we have issued a check to based on Last
Check date, but the Letter Writing Assistant only allows you to select
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the ...When I select a colored font, text is still showing up black. Why?
When I select a colored font in excel, text is still showing up in black. Why?
Tks, Meade Myres
I think this is your problem
Regards Ron de Bruin
"onemanhattanrebel" <email@example.com> wrote in message
> When I select a colored font in excel, text is still showing up in black. Why?
> Tks, Meade Myres
...Excel 2002 Settings when Crashing
Is it possible to set XL up so that when it crashes
In the "Microsoft has encountered a problem and needs to close ..........."
the checkbox "Recover my work and restart Microsoft Excel" is unchecked by
Autorecovery is enabled/disabled on a workbook basis, not application.
For all new workbooks you could set up a Template with Autorecovery disabled
Open a new workbook, make your settings then File>Save As>File Type>MS Excel
Name it BOOK and let Excel add the .xlt extension.
Store this in yo...VBA function changing name
OK, here's a strange one - well strange to me anyway. I've declared a
function in a module using mixed case:
Function TMDE_Category (FormName As Form)
The function is called by the VBA code behind two different forms. I noticed
the other day that it appeared in the module as
Function tmde_category(FormName As Form)
Obviously, this isn't preventing the database application from running, but
I can't figure out why it changed. I changed it back to the mixed case
declaration, saved the module, exited the app, reopened it and looked. The
function had changed back t...How to get the selected video codec?
in my webcam program I open the compression dialog from the webcam driver
to select the codec for the video recording!
Then I record with capFileSetCaptureFile(window->GetHWND(), filename); !
OK ! The video is generated with the selected codec.
If I start the program again. The previous selected codec is lost and a
default codec is set.
To prevent this I want to get the selected codec, save it and at next start
select the codec by program.
But I don't know how to find out which codec was set in the driver based
I would be very glad if someone could help me!
Regard...Serious error during VBA event
We've added VBA code to several windows. Now, all of a sudden, we're getting
this error message, "A serious error occured during a VBA event", for
non-admin users. This is a Citrix environment and we do not get the error
when we log onto Citrix as an administrator.
We found knowledgebase article # 929612 which tells us to give full control
to four registry keys for all users. We tried this but we're still getting
...How do I set borderless margins to print on postcards?
I'm using Publisher and when I preview and print, it has not printed to the
end of card
Does your printer print full bleed? Not all do.
MVP Microsoft [Publisher]
"Jacks" <Jacks@discussions.microsoft.com> wrote in message
> I'm using Publisher and when I preview and print, it has not printed to
> end of card
...How do I count selected data in a report footer
Am attempting to count the number of conditions in a data field with a
certain stated value; in a group summary and then a report summary (i.e.
count the Number of records where the sum of hours is between 0 and 24).
I "sum of hours" an aggregate total or a field in the report's record source?
If it is a field, you can use an expression like:
=Sum(Abs([sum of hours]<= 24))
Microsoft Access MVP
> Am attempting to count the number of conditions in a data field with a
> certain stated value; in a group summary and then a r...set report field forecolour based upon corresponding id entry in a 2nd report
hi, just joined..beginner i'm afraid..
if i have just read 'access help' properly it appears i should use condtional
formatting to change a field colour in one report provided the 2nd report is
open...can you advise the neccessary code format to use to refer to a 2nd
report please as i'm not a programmer..hope this isn't too janet & john!..
thanx in advance, mike
...how to make impossible to select content of textbox?
i need two textboxes, one for entering and another for confirming an
What i want is to make impossible to select the emailaddress in the first
textbox in order not to be able to copy it in the second textbox.
I'm sure it's possible to do that asp.net (ajax?), but how?
On Mar 1, 10:59=A0pm, "Luc" <qc...@qscqs.fr> wrote:
> i need two textboxes, one for entering and another for confirming an
> What i want is to make impossible to select the emailaddress in the first
> t...Find vba problem
I'm using the following to find text in cells:
Cells.Find(What:=Range("D3").Value, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:= _
xlByRows, SearchDirection:=xlNext, MatchCase:= _
The formula works if it only text in the cell. What if the text is the
same only as a result of the formula in the cell, the above doesn'
I take it there is no match as above is looking at the formula in th
cell and not the text? Is there any way it can to changed to recognis
the text and not the formula
Message posted from http...Selecting a CListCtrl dynamically (SetItemState)
Can anyone 'guess' why the following 2 lines don't select an item in my list
any more. It worked when I tested it a few months ago, but now it doesn't
do/select anything! There is no scroll bar (room for all items in my list)
and nothing is selected when I do these 2 lines:
SetItemState(rowToSelect, LVIS_SELECTED, TRUE);
The list is not the active window, but they should still appear selected (in
grey). Perhaps I have missed a setting to do with selections being visible?
My creation line for the lists is:
i tried retrieving my e-mails from another server.
From: "bert" <firstname.lastname@example.org>
Date: Saturday, January 23, 2010 10:56 PM
The highlighted message in my inbox has just started to disappear each time
I log off? (And are not in the Delete file either?)
Thanks in anticipation
"KUJA " <email@example.com> wrote in message
>i tried retrieving my e-mails from another server.
> From: "bert" <firstname.lastname@example.org>
> Subject: ma...Payroll Direct Depsoit set up
HI, I am setting up payroll direct deposit and I am having trouble
understanding the ach fileds set up as follows.
these are not really explained innthe help files, if anyone could help that
would be great. you can email me at email@example.com.
We are a gold certified Dynamics partner
Hi: Not sure if we have it exactly right, but this is what we've used for the
past year and a half, and the bank has accepted the files.
Imm origin (1&company ein) - same as...VBA
ActiveCell.Formula = "=HighLevelSummary_%!$C$5"
When I run this code, I get Run Time Error - 1004
Application defined or object defined error.
I will appreciate assistance in identifying the problem
with the code.
- are the 2 sheets. In cells - J53-K53 I want to put the
link to cell from sheet HighLevelSummary cell C5.
try this. Modify to suit.
'Set frng = Range("h8:h" & Range("a65536").End(xlUp).Row)
set frng=range("j53:...SQL Set Commision
I have two tables (here is a simplification of the problem). One table
has: OrderID, Amount, SplitID, CustomerID. Sample
OrderID Amount SplitID CustomerID
1 $100.00 1 A
2 $40.00 1 B
3 $100.00 1 A
4 $250.00 1 A
5 $100.00 2 A
6 $150.00 2 B
For Customer A, the Total for Customer A SplitID 1, the total is:
$450.00 ($100 + $100 + $250)
The second Table has SplitID, SplitN, Amount, Percent. Sample
SplitID SplitN Amount %
1 1 $0.00 0%
1 2 $50.00 5%
1 3 $100.00 10%
1 4 $200.00 15%
2 1 $0.00 0%
2 2 $100.00 5%
I use the second table to c...Re: Excel VBA
i have a problem with Excel (maybe it's the easiest thing in the world
I don't know, I'm new to Excel):
Let's say I have following formula into cell A2: =SUM(A1:A1)
Now, a row is inserted at A1, so the formula is now into cell A3. Th
formula itself is now SUM(A2:A2), the reference has change
So far, so good.
But: I want the formula to add the values of ALL cells above, i.e. th
formula should be SUM(A1:A2) if I insert one row. If I insert anothe
row, the formula should be SUM(A1:A3) - NOT SUM(A3:A3). I think th
best way to solve this is VBA...
I ho...How do you set a users reply address to that of a distribution group
we are using sbs 2003 sp1, with exchange 2003 sp1.
We have a query regarding setting users to have a reply address of a
distribution list they are a member of.
How can this be done?
Fisheye <firstname.lastname@example.org> typed:
> Hi all,
> we are using sbs 2003 sp1, with exchange 2003 sp1.
> We have a query regarding setting users to have a reply address of a
> distribution list they are a member of.
> How can this be done?
Grant them "send as" rights to the group in...VBA equivalent for Excel "indirect()" function in UDF
I often pick random elements from a list (named range), whose name is typed
However, the attempt to make this a UDF function in VBA fails, since
"INDIRECT()" is not part of the "worksheetfunction"-collection in VBA.
Is there any equivalent that may do the trick ?
Thank you in advance.
I don't believe there is a direct equivalent in VBA for INDIRECT. However,
you can use Offset to refer other cells.
myValue = Range("B2...