Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Notice that there are some small changes you need to do to get it working:
1) Set your file names of your own Excel & Word documents. If you use already-open documents, activate them (make them the ones you are working on) in word/excel, and use the ActiveDocument (for word) & ActiveWorkbook.ActiveWorks
2) Change the way I select the chart object - mine gets the first chart in the worksheet. Good if you only have one there ...
' Get a reference to Word
On Error Resume Next
Dim objWord As Word.Application
Set objWord = GetObject(, "Word.Application")
On Error GoTo 0
If objWord Is Nothing Then
Set objWord = CreateObject("Word.Applica
End If
' Open your file
' You'll have to set your code to your own file, unless
' you work with an already active application
Dim myWordDoc As Word.Document
Set myWordDoc = objWord.Documents.Open("Yo
' Same note as above
On Error Resume Next
Dim objExcel As Excel.Application
Set objExcel = GetObject(, "Excel.Application")
On Error GoTo 0
If objExcel Is Nothing Then
Set objExcel = CreateObject("Excel.Applic
End If
' Open the xls file
objExcel.Workbooks.Open ("Your file name")
Dim myExcelSheet As Excel.Worksheet
' Enter the worksheet you use here
Set myExcelSheet = objExcel.ActiveWorkbook.Wo
' Search for the chart object we want to copy
Dim objTheChartInExcel As Excel.Shape
Dim intShapeIterator As Integer
intShapeIterator = 1
Do While intShapeIterator <= myExcelSheet.Shapes.Count And objTheChartInExcel Is Nothing
'Provide your own test to recognize the chart you want.
' Mine simply takes the first
If myExcelSheet.Shapes(intSha
Set objTheChartInExcel = myExcelSheet.Shapes(intSha
Else
intShapeIterator = intShapeIterator + 1
End If
Loop
' Copy the chart
objTheChartInExcel.Copy
' If you only want the picture, and not an embeded chart (doesn't require excel on the computer that opens the doc, loads faster and saves memory) - you can use the CopyPicture() function
' objTheChartInExcel.CopyPic
Set objTheChartInExcel = Nothing
' Go to the location you wish in the word document and paste the chart
' (this simply places it at the top of the first page)
myWordDoc.Goto(wdGoToPage,
'Don't forget to clean up after yourself
Set myExcelSheet = Nothing
Set myWordDoc = Nothing
objExcel.Quit
Set objExcel = Nothing
objWord.Quit
Set objWord = Nothing
'etc.
Hope this is enough :-)