%J = %H;
%K = %(1@W, @PN);

// Make sure %J string register points to the graph window and %K points to the workbook
if ((exist(%J, 3) != 3) || (exist(%K, 2) != 2))
{
    // If not, dump error mesage to Message Log and stop script
    int nOld = type.redirection;
    type.redirection = 1024;
    type "Failed to change graph name in Analysis Template!";
    type.redirection = nOld;
    return;
}

// Get ranges for the graph, the workbook, and the worksheet containing the embedded graph
// based on the string registers.
// Embedded graph worksheet is 4 (see below). You might need to change that.
range rngGraph = [%J];
range rngBook = [%K];
range rngSheet = [%K]4;

// Set graph long name to workbook long name
rngGraph.longname$ = rngBook.longname$;

// Set worksheet long name to workbook long name. Note I prefixed it with  "Graph: "
rngSheet.longname$ = "Graph: %(rngBook.longname$)"; 

// Set column comments for embedded graph to workbook long name. Note I prefixed it with  "Graph: "
rngSheet.col1.comment$ = "Graph: %(rngBook.longname$)";

// Clear string registers
%J="";
%K="";

doc -e w       // loop through all book
{
page.active=4;  // active graph sheet(i.e. sheet4)

wks.name$ = %H;   // change name follows the book name
%H=;
}