Data Recovery Archive

If each worksheet in an Excel workbook contains several charts and now you would like to batch move all charts to a new created worksheet, you can refer to this post. Here we will introduce you 2 easy ways.

After creating charts for the data in each worksheet of an Excel workbook, so as to better analyze data according to these charts, you may want to gather all these charts to a same worksheet. In other words, you may hope to move all of them to a new worksheet. If there are few charts, you can just use the following Method 1 to move one by one. Yet, if there are a myriad of charts, you are better off utilizing the latter one.

Method 1: Manually Move Chart One by One

  1. At first, create a new worksheet where you want to move all charts.
  2. Then, open a worksheet and pitch on a chart in it.
  3. Next, right click on the chart and select “Move Chart” from the context menu.Move Chart
  4. In the popup “Move Chart” dialog box, select the new sheet in “Object in” list and click “OK”.Select Location
  5. At once, the selected chart will be moved.Chart Is Moved to New Sheet
  6. Now, you can use this way to process all the charts in all worksheets one by one.

Method 2: Batch Move with Excel VBA

  1. To begin with, launch Excel VBA editor according to “How to Run VBA Code in Your Excel“.
  2. Then, put the following code into a module or project.
Sub MoveAllCharts()
    Dim strNewSheet As String
    Dim objTargetWorksheet As Worksheet
    Dim objWorksheet As Worksheet
    Dim objChart As Object

    'Create a new sheet
    strNewSheet = "Charts"
    ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1)).Name = strNewSheet
    Set objTargetWorksheet = Application.Worksheets(strNewSheet)

    For Each objWorksheet In Application.ActiveWorkbook.Worksheets
        If objWorksheet.Name <> strNewSheet Then
           'Move each chart to the new sheet one by one
           For Each objChart In objWorksheet.ChartObjects
               objChart.Chart.Location xlLocationAsObject, strNewSheet
           Next objChart
        End If
    Next

    objTargetWorksheet.Activate
End Sub

VBA Code - Batch Move All Charts from All Exiting Worksheets to a New Created One

  1. Afterwards, directly press “F5” to run this macro right now.
  2. When macro finishes, exit VBA editor.
  3. In Excel main window, you can see a new worksheet, in which you can see all the charts.Batch Moved Charts in the New Excel Worksheet

Comparison

  Advantages Disadvantages
Method 1 Easy to operate You have to move one by one
Method 2 Can process all charts in bulk Users have to beware of external macros

Repair Damaged Excel File

Excel file is prone to corruption since Excel can crash now and then. Under such a circumstance, you’d better prepare a powerful and trustworthy xlsx recovery tool, such as DataNumen Excel Repair. It will come in handy when your Excel file gets corrupted and Excel’s auto-recovery feature doesn’t work.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including repair sql and outlook repair software products. For more information visit www.datanumen.com

It is easy to attach a Word document as a PDF file to an Outlook email. Yet, if you’d like to attach multiple Word documents as PDF files to an email, you can read this article. Here we will show you a method to batch get it.

To attach a Word document as PDF file to an Outlook email, you can firstly open the Word document and go to “File” menu. Then, you can switch to “Save & Send” tab, on which there is a “Send as PDF” button, like the following screenshot.

Send as PDF

Thus, it is quite simple to attach a Word document as PDF to an email. But, if you would like to convert and attach multiple Word documents as PDF files to a mail, you are better off using the following way. It can let you accomplish it in bulk.

Batch Convert & Attach Multiple Word Documents as PDF Files to an Email

  1. For a start, gather the Word documents that you want in the same Windows folder.
  2. Then, launch Outlook program.
  3. Next, copy the following code into an unused project or module.
Dim objMail As Outlook.MailItem

Sub BatchAttachMultipleWordDocumentsAsPDFToEmail()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim strWindowsFolder As String

    Set objMail = Outlook.Application.CreateItem(olMailItem)

    'Select the specific Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows folder:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       Call ProcessFolders(strWindowsFolder)

       objMail.Display
    End If
End Sub

Sub ProcessFolders(strPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim strDocumentName As String
    Dim strPDF As String

    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strPath)

    For Each objFile In objFolder.Files
        strFileExtension = objFileSystem.GetExtensionName(objFile)
        If LCase(strFileExtension) = "doc" Or LCase(strFileExtension) = "docx" Then
           Set objWordApp = CreateObject("Word.Application")
           Set objWordDocument = objWordApp.Documents.Open(objFile.Path)

           'Convert document to pdf
           strDocumentName = Left(objWordDocument.Name, (Len(objWordDocument.Name) - Len(strFileExtension)) - 1)
           strPDF = strPath & strDocumentName & ".pdf"
           objWordDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF

           objWordDocument.Close False

           'Attach the pdf to email
           objMail.Attachments.Add strPDF

           Kill strPDF
        End If
    Next

    'Process all folders and subfolders
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubfolder In objFolder.SubFolders
           If ((objSubfolder.Attributes And 2) = 0) And ((objSubfolder.Attributes And 4) = 0) Then
              ProcessFolders (objSubfolder.Path)
           End If
       Next
    End If
End Sub

VBA Code - Batch Convert & Attach Multiple Word Documents as PDF Files to an Email

  1. After that, move cursor into the first subroutine.
  2. Subsequently, press “F5” to run this macro right away.
  3. In the popup small dialog box, select the Windows folder where the source Word documents are stored.Select Windows Folder
  4. At once, a new email will be created, in which you can see the attached PDF files, like the following screenshost.Attached PDF Files in New Email

Plagued by Outlook Troubles

Are you disturbed by miscellaneous Outlook problems? For instance, Outlook is frequent stuck in “not responding” state or Outlook PST file becomes inaccessible, etc. In general, you can first try inbox repair tool, Scanpst, to fix PST issues. Yet, at times, the problems may be beyond what the inbuilt tool can do. Therefore, you’d better keep a more potent external utility in vicinity, such as DataNumen Outlook Repair.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including sql repair and outlook repair software products. For more information visit www.datanumen.com

5 Main Reasons Why You Must Keep Computer Cool

Posted June 7, 2018 By AuthorCCW

Keeping computer cool is quite necessary. But, in reality, some users don’t attach much importance to this. Thus, in this article, we will uncover 5 top reasons why you have to keep your PC cool.

As we all know, if a computer keeps being used for a long time, it will be subject to overheat. Actually, under this circumstance, users are better off turning it off to stop using it to let it cool down as quickly as possible. Nevertheless, some neglect this and select to continue operating on it. To be honest, it is quite dangerous and harmful to the computer. Now, here we will expose 5 top reasons why you ought to keep your PC cool.

5 Main Reasons Why You Must Keep Computer Cool

1. PC Malfunctions

Above all, the most obvious phenomenon when your PC isn’t cool is that PC can’t function properly. For instance, your computer may crash and freeze from time to time, such as blue screen of death or incapacity to boot up. You must be unwilling to encounter these terrible matters. Hence, keep your PC cool anyway.

2. Drive Failure

Hard drive is a key component of computer. It is the repository of computer data. If the drive fails, your computer data will suffer definitely. There is no doubt that overheat of computer can make great damages to hard drive, like burning its printed circuit board or lead drive heads to crash and so on. Thus, to protect your PC’s drive, you should keep your PC cool.

3. Data Corruption

Based on what is mentioned in the above point, computer data is stored in hard drive. Thus, if your PC is overheating, the hard drive may fail, thereby resulting in data corruption, such as Outlook corruption. Of course, even though the drive is still intact, you can still come across data corruption. For example, if you PC often crashes, some programs frequently get closed improperly, which can cause data corruption, too.

4. Damage PC Components

Here so-called overheat refers to the temperature as hot as 170°F. It is indeed hot enough to burn computer’s electrical components, such as the CPU. It is known that CPU is similar to the brain of computer. If it is damaged, your computer is in danger and require professional repair.

5. Reduce Longevity

Perhaps you may disagree and express that your PC keeps working well though it is in uncool state for a long time. To be honest, this is the temporary situation. In fact, your computer is degrading. In other words, longevity of your PC is reduced gradually. You are accelerating your computer’s degradation. In a nutshell, keep your PC cool.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including mdf recovery and outlook repair software products. For more information visit www.datanumen.com