Prev: Point to My Docs in Win7/XP, Excel 03/07
Next: String manipulation in 2007
From: geebee on 8 Apr 2010 11:19

Hi,
I recently started getting a “Runtime error 91
Object variable or with block variable not set” error message when running
my code. I made no changes to my code, so I figure an update was done to the
software via our LAN server.

Can someone please tell me how to remedy this?
The code that runs is in block 2. However, the error message/debug is
pointing to the following line in block 1:
“ActiveChart.ChartType = xlColumnClustered”


(preface code)
Option Explicit

'XL2GIF_module -- GIF_Snapshot
Dim container As Chart
Dim containerbok As Workbook
Dim Obnavn As String
Dim Sourcebok As Workbook

(1)
Private Sub ImageContainer_init()
Workbooks.Add (1)
ActiveSheet.Name = "GIFcontainer"
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Worksheets(1).Range("A1")
ActiveChart.Location Where:=xlLocationAsObject, _
Name:="GIFcontainer"
ActiveChart.ChartArea.ClearContents
'MsgBox ActiveChart.Name

Set containerbok = ActiveWorkbook
Set container = ActiveChart
End Sub



(2)
Public Sub GIF_Snapshot_HASP()
Dim varReturn As Variant
Dim MyAddress As String
Dim SaveName As Variant
Dim MySuggest As String
Dim Hi As Integer
Dim Wi As Integer
Dim Suffiks As Long

' disable background error checking
Application.ErrorCheckingOptions.BackgroundChecking = False

Set Sourcebok = ActiveWorkbook
MySuggest = sShortname(ActiveSheet.Name)
ImageContainer_init
Sourcebok.Activate
MyAddress = SelectArea_HASP
If MyAddress <> "A1" Then

'Dim ChDir
'ChDir "C:\DD\"

SaveName = Application.GetSaveAsFilename( _
InitialFileName:=MySuggest _
& ".gif", fileFilter:="Gif Files (*.gif), *.gif")

'SaveName = "C:\DD\" & MySuggest & ".gif"

'Stop

Range(MyAddress).Select
Selection.CopyPicture Appearance:=xlScreen, _
Format:=xlBitmap
If SaveName = False Then
GoTo Avbryt
End If
If InStr(SaveName, ".") Then SaveName _
= Left(SaveName, InStr(SaveName, ".") - 1)
Selection.CopyPicture Appearance:=xlScreen, _
Format:=xlBitmap
Hi = Selection.Height + 4 'adjustment for gridlines
Wi = Selection.Width + 6 'adjustment for gridlines
containerbok.Activate
ActiveSheet.ChartObjects(1).Activate
MakeAndSizeChart ih:=Hi, iv:=Wi
ActiveChart.Paste
' LCase (SaveName) & _
' ".gif"

' bypass faulty file save name by hardcoding it
'ActiveChart.Export Filename:="test.gif", FilterName:="GIF"
ActiveChart.Export Filename:=MySuggest & ".gif", FilterName:="GIF"

' enable background error checking
Application.ErrorCheckingOptions.BackgroundChecking = True


'Dim oOutlookApp As Object, oOutlookMessage As Object
'Dim Body
'Set oOutlookApp = CreateObject("Outlook.Application")
'Set oOutlookMessage = oOutlookApp.CreateItem(0)
'ActiveChart.Paste
'Set Body = ActiveChart


ActiveChart.Pictures(1).Delete
Sourcebok.Activate

Range("A1").Select

End If
Avbryt:
On Error Resume Next
Application.StatusBar = False
containerbok.Saved = True
containerbok.Close


'Stop



End Sub

From: JLGWhiz on 8 Apr 2010 13:02
I cannot duplicate the error. It runs OK in xl03.



"geebee" <geraldjr30(a)hotmail.com(noSPAMs)> wrote in message
news:8C3E053A-A950-4431-935F-7AB8081CA21A(a)microsoft.com...
>
> Hi,
> I recently started getting a "Runtime error 91
> Object variable or with block variable not set" error message when running
> my code. I made no changes to my code, so I figure an update was done to
> the
> software via our LAN server.
>
> Can someone please tell me how to remedy this?
> The code that runs is in block 2. However, the error message/debug is
> pointing to the following line in block 1:
> "ActiveChart.ChartType = xlColumnClustered"
>
>
> (preface code)
> Option Explicit
>
> 'XL2GIF_module -- GIF_Snapshot
> Dim container As Chart
> Dim containerbok As Workbook
> Dim Obnavn As String
> Dim Sourcebok As Workbook
>
> (1)
> Private Sub ImageContainer_init()
> Workbooks.Add (1)
> ActiveSheet.Name = "GIFcontainer"
> Charts.Add
> ActiveChart.ChartType = xlColumnClustered
> ActiveChart.SetSourceData Source:=Worksheets(1).Range("A1")
> ActiveChart.Location Where:=xlLocationAsObject, _
> Name:="GIFcontainer"
> ActiveChart.ChartArea.ClearContents
> 'MsgBox ActiveChart.Name
>
> Set containerbok = ActiveWorkbook
> Set container = ActiveChart
> End Sub
>
>
>
> (2)
> Public Sub GIF_Snapshot_HASP()
> Dim varReturn As Variant
> Dim MyAddress As String
> Dim SaveName As Variant
> Dim MySuggest As String
> Dim Hi As Integer
> Dim Wi As Integer
> Dim Suffiks As Long
>
> ' disable background error checking
> Application.ErrorCheckingOptions.BackgroundChecking = False
>
> Set Sourcebok = ActiveWorkbook
> MySuggest = sShortname(ActiveSheet.Name)
> ImageContainer_init
> Sourcebok.Activate
> MyAddress = SelectArea_HASP
> If MyAddress <> "A1" Then
>
> 'Dim ChDir
> 'ChDir "C:\DD\"
>
> SaveName = Application.GetSaveAsFilename( _
> InitialFileName:=MySuggest _
> & ".gif", fileFilter:="Gif Files (*.gif), *.gif")
>
> 'SaveName = "C:\DD\" & MySuggest & ".gif"
>
> 'Stop
>
> Range(MyAddress).Select
> Selection.CopyPicture Appearance:=xlScreen, _
> Format:=xlBitmap
> If SaveName = False Then
> GoTo Avbryt
> End If
> If InStr(SaveName, ".") Then SaveName _
> = Left(SaveName, InStr(SaveName, ".") - 1)
> Selection.CopyPicture Appearance:=xlScreen, _
> Format:=xlBitmap
> Hi = Selection.Height + 4 'adjustment for gridlines
> Wi = Selection.Width + 6 'adjustment for gridlines
> containerbok.Activate
> ActiveSheet.ChartObjects(1).Activate
> MakeAndSizeChart ih:=Hi, iv:=Wi
> ActiveChart.Paste
> ' LCase (SaveName) & _
> ' ".gif"
>
> ' bypass faulty file save name by hardcoding it
> 'ActiveChart.Export Filename:="test.gif", FilterName:="GIF"
> ActiveChart.Export Filename:=MySuggest & ".gif", FilterName:="GIF"
>
> ' enable background error checking
> Application.ErrorCheckingOptions.BackgroundChecking = True
>
>
> 'Dim oOutlookApp As Object, oOutlookMessage As Object
> 'Dim Body
> 'Set oOutlookApp = CreateObject("Outlook.Application")
> 'Set oOutlookMessage = oOutlookApp.CreateItem(0)
> 'ActiveChart.Paste
> 'Set Body = ActiveChart
>
>
> ActiveChart.Pictures(1).Delete
> Sourcebok.Activate
>
> Range("A1").Select
>
> End If
> Avbryt:
> On Error Resume Next
> Application.StatusBar = False
> containerbok.Saved = True
> containerbok.Close
>
>
> 'Stop
>
>
>
> End Sub
>


From: geebee on 8 Apr 2010 16:50
I am using Excel 2007. The strange thing is that it was working fine one
day. Then the next it just stopped working. I am not sure what was done
behind the scenes to update the Excel SP or anything. Just would like to get
this working again.

Thanks in advance,
geebee


"JLGWhiz" wrote:

> I cannot duplicate the error. It runs OK in xl03.
>
>
>
> "geebee" <geraldjr30(a)hotmail.com(noSPAMs)> wrote in message
> news:8C3E053A-A950-4431-935F-7AB8081CA21A(a)microsoft.com...
> >
> > Hi,
> > I recently started getting a "Runtime error 91
> > Object variable or with block variable not set" error message when running
> > my code. I made no changes to my code, so I figure an update was done to
> > the
> > software via our LAN server.
> >
> > Can someone please tell me how to remedy this?
> > The code that runs is in block 2. However, the error message/debug is
> > pointing to the following line in block 1:
> > "ActiveChart.ChartType = xlColumnClustered"
> >
> >
> > (preface code)
> > Option Explicit
> >
> > 'XL2GIF_module -- GIF_Snapshot
> > Dim container As Chart
> > Dim containerbok As Workbook
> > Dim Obnavn As String
> > Dim Sourcebok As Workbook
> >
> > (1)
> > Private Sub ImageContainer_init()
> > Workbooks.Add (1)
> > ActiveSheet.Name = "GIFcontainer"
> > Charts.Add
> > ActiveChart.ChartType = xlColumnClustered
> > ActiveChart.SetSourceData Source:=Worksheets(1).Range("A1")
> > ActiveChart.Location Where:=xlLocationAsObject, _
> > Name:="GIFcontainer"
> > ActiveChart.ChartArea.ClearContents
> > 'MsgBox ActiveChart.Name
> >
> > Set containerbok = ActiveWorkbook
> > Set container = ActiveChart
> > End Sub
> >
> >
> >
> > (2)
> > Public Sub GIF_Snapshot_HASP()
> > Dim varReturn As Variant
> > Dim MyAddress As String
> > Dim SaveName As Variant
> > Dim MySuggest As String
> > Dim Hi As Integer
> > Dim Wi As Integer
> > Dim Suffiks As Long
> >
> > ' disable background error checking
> > Application.ErrorCheckingOptions.BackgroundChecking = False
> >
> > Set Sourcebok = ActiveWorkbook
> > MySuggest = sShortname(ActiveSheet.Name)
> > ImageContainer_init
> > Sourcebok.Activate
> > MyAddress = SelectArea_HASP
> > If MyAddress <> "A1" Then
> >
> > 'Dim ChDir
> > 'ChDir "C:\DD\"
> >
> > SaveName = Application.GetSaveAsFilename( _
> > InitialFileName:=MySuggest _
> > & ".gif", fileFilter:="Gif Files (*.gif), *.gif")
> >
> > 'SaveName = "C:\DD\" & MySuggest & ".gif"
> >
> > 'Stop
> >
> > Range(MyAddress).Select
> > Selection.CopyPicture Appearance:=xlScreen, _
> > Format:=xlBitmap
> > If SaveName = False Then
> > GoTo Avbryt
> > End If
> > If InStr(SaveName, ".") Then SaveName _
> > = Left(SaveName, InStr(SaveName, ".") - 1)
> > Selection.CopyPicture Appearance:=xlScreen, _
> > Format:=xlBitmap
> > Hi = Selection.Height + 4 'adjustment for gridlines
> > Wi = Selection.Width + 6 'adjustment for gridlines
> > containerbok.Activate
> > ActiveSheet.ChartObjects(1).Activate
> > MakeAndSizeChart ih:=Hi, iv:=Wi
> > ActiveChart.Paste
> > ' LCase (SaveName) & _
> > ' ".gif"
> >
> > ' bypass faulty file save name by hardcoding it
> > 'ActiveChart.Export Filename:="test.gif", FilterName:="GIF"
> > ActiveChart.Export Filename:=MySuggest & ".gif", FilterName:="GIF"
> >
> > ' enable background error checking
> > Application.ErrorCheckingOptions.BackgroundChecking = True
> >
> >
> > 'Dim oOutlookApp As Object, oOutlookMessage As Object
> > 'Dim Body
> > 'Set oOutlookApp = CreateObject("Outlook.Application")
> > 'Set oOutlookMessage = oOutlookApp.CreateItem(0)
> > 'ActiveChart.Paste
> > 'Set Body = ActiveChart
> >
> >
> > ActiveChart.Pictures(1).Delete
> > Sourcebok.Activate
> >
> > Range("A1").Select
> >
> > End If
> > Avbryt:
> > On Error Resume Next
> > Application.StatusBar = False
> > containerbok.Saved = True
> > containerbok.Close
> >
> >
> > 'Stop
> >
> >
> >
> > End Sub
> >
>
>
> .
>
 | 
Pages: 1
Prev: Point to My Docs in Win7/XP, Excel 03/07
Next: String manipulation in 2007