[GastForen Programmierung/Entwicklung AppleScript Excel Macro über Automator ausführen

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Themen
Beiträge
Moderatoren
Letzter Beitrag

Excel Macro über Automator ausführen

pronto
Beiträge gesamt: 1151

2. Jun 2012, 10:52
Beitrag # 1 von 7
Bewertung:
(5931 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi HDSler,

nachdem ich feststellen musste, dass in Microsoft Office 2008 für Mac keine Makros angelegt werden können und stattdessen diese über eine Automator Aktion ausgeführt werden sollen, bräuchte ich Unterstützung für eine geeignete Automator Aktion. Ich habe ein Makro aus Excel 2007, welches Diagramme auf eine festgelegte Größe skaliert:

Code
Sub DiaGroesse() 
Dim i As Integer
Dim j As Integer

For i = 1 To Sheets.Count
For j = 1 To Sheets(i).ChartObjects.Count
With Sheets(i).ChartObjects(j)
.Width = 250
.Height = 150
End With
Next
Next
End Sub


Wie muss ich dieses Skript als Automatoraktion anlegen und wie wird es angewandt?

Thx & Bye Tom
--
prontosystems.org - we are connecting more than computers...

(Dieser Beitrag wurde von pronto am 2. Jun 2012, 10:54 geändert)
X

Excel Macro über Automator ausführen

Hans Haesler
  
Beiträge gesamt: 5805

2. Jun 2012, 11:41
Beitrag # 2 von 7
Beitrag ID: #495943
Bewertung:
(5915 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi Tom,

herzlich willkommen im AppleScript-Forum! :-)

Ich bin zur Zeit ausser Haus und kann erst am Abend versuchen Dir zu helfen.

Versuchen, weil ich mich erst schlau machen muss. Deshalb hoffe ich sehr, dass ein versierter Mitleser das Problem vorher lösen kann.

Gruss, Hans


als Antwort auf: [#495942]

Excel Macro über Automator ausführen

Hans Haesler
  
Beiträge gesamt: 5805

2. Jun 2012, 20:06
Beitrag # 3 von 7
Beitrag ID: #495950
Bewertung:
(5875 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi Tom,

also ... Automator hatte ich zum letzten Mal benutzt, als ich im Jahre 2005 darüber einen Artikel für die "Fachhefte grafische Industrie" (http://www.fachhefte.ch) verfasste ...

Mein Rat: Nicht Automator einsetzen, sondern ein simples AppleScript ausführen:

Code
tell application "Microsoft Excel" 
tell active workbook
repeat with i from 1 to count of worksheets
tell worksheet i
repeat with j from 1 to count of chart objects
tell chart object j
set properties to {width:250, height:150}
end tell
end repeat
end tell
end repeat
end tell
display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 1
end tell

Getestet mit Excel für Mac 2011. Funktioniert wie erwartet.

Gruss, Hans


als Antwort auf: [#495943]

Excel Macro über Automator ausführen

pronto
Beiträge gesamt: 1151

4. Jun 2012, 14:44
Beitrag # 4 von 7
Beitrag ID: #495999
Bewertung:
(5804 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Servus Hans,

Antwort auf [ Hans Haesler ] Mein Rat: Nicht Automator einsetzen, sondern ein simples AppleScript ausführen:

Code
tell application "Microsoft Excel" 
tell active workbook
repeat with i from 1 to count of worksheets
tell worksheet i
repeat with j from 1 to count of chart objects
tell chart object j
set properties to {width:250, height:150}
end tell
end repeat
end tell
end repeat
end tell
display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 1
end tell

Getestet mit Excel für Mac 2011. Funktioniert wie erwartet.


jupp tut es auch hier in Excel 2011. Ob es auch in Excel 2008 funktioniert muss ich noch ausprobieren, hab nur grad keines zur Hand.

Vielen Dank :-)

Noch was: Kann man das auch so einstellen, dass es nur auf markierte Diagramme wirkt?

Bye Tom
--
prontosystems.org - we are connecting more than computers...


als Antwort auf: [#495950]
(Dieser Beitrag wurde von pronto am 4. Jun 2012, 14:46 geändert)

Excel Macro über Automator ausführen

Hans Haesler
  
Beiträge gesamt: 5805

4. Jun 2012, 18:40
Beitrag # 5 von 7
Beitrag ID: #496017
Bewertung:
(5784 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi Tom,

bitteschön.

Nun ... um die Abmessungen eines markierten Diagramms zu ändern, ist ein Script überflüssig.

Entweder: Man packt eine der Ecken und schiebt sie, bis die Grösse passt. Die Werte werden dauernd angezeigt (siehe "ChartSkalieren_01.png").
Oder: Man klickt auf "Diagrammlayout > Formatieren" und gibt in den Textfeldern rechts die Grösse ein (siehe "ChartSkalieren_02.png").

Gruss, Hans


als Antwort auf: [#495999]
Anhang:
ChartSkalieren_01.png (28.1 KB)   ChartSkalieren_02.png (14.9 KB)

Excel Macro über Automator ausführen

pronto
Beiträge gesamt: 1151

4. Jun 2012, 20:15
Beitrag # 6 von 7
Beitrag ID: #496020
Bewertung:
(5757 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Servus,

ja bei einem Diagramm ist das sicherlich die einfachere Variante aber im Moment habe ich eine Präsentation mit jeweils zwei verschiedenen Diagrammen und davon jeweils einige. Insofern der Wunsch nach Selektion.

Aber die Eingabemaske bzg. der Größe des Diagramms gab es bei Excel 2008 noch gar nicht und Office 2011 hab ich heute erst installiert. Wenn das jetzt bei Office 2011 möglich ist, wäre das auch praktikabel...

Thx & Bye Tom
--
prontosystems.org - we are connecting more than computers...


als Antwort auf: [#496017]

Excel Macro über Automator ausführen

Hans Haesler
  
Beiträge gesamt: 5805

4. Jun 2012, 20:59
Beitrag # 7 von 7
Beitrag ID: #496023
Bewertung:
(5747 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi Tom,

wie man per Script ein ausgewähltes Diagramm erfassen kann, habe ich auf die Schnelle nicht herausgefunden.

Du kannst mal das Funktionsverzeichnis von Excel durchstöbern:
– AppleScript-Editor starten;
– Menüartikel >Fenster > Bibliothek;

Wenn im sich öffnenden Fenster die Zeile "Microsoft Excel" noch nicht vorhanden ist:
– auf das Pluszeichen links klicken;
– im Auswahl-Dialog das Programm "Microsoft Excel.app" lokalisieren, auswählen und "Öffnen" klicken;
– jetzt ist im Fenster "Bibliothek" die Zeile "Microsoft Excel" eingetragen und ausgewählt;
– auf das dritte Symbol (die Bücher) klicken;
– warten, bis das Fenster "Microsoft Excel.sdef" geöffnet ist.

Jetzt kann das Verzeichnis durchforstet werden.

Die beiden angehängten Screenshots zeigen die Menüleiste im Normalzustand ("tabelle.png") und wenn ein Diagramm ausgewählt ist ("diagramm.png"). Wenn man auf "Formatieren" klickt, erscheinen ganz rechts die Felder für die Eingabe der Grösse.

Gruss, Hans


als Antwort auf: [#496020]
(Dieser Beitrag wurde von Hans Haesler am 4. Jun 2012, 20:59 geändert)

Anhang:
tabelle.png (45.9 KB)   diagramm.png (82.2 KB)
X

Aktuell

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
05.02.2021 - 05.11.2021

Digicomp Academy AG, Limmatstrasse 50, 8005 Zürich
Freitag, 05. Feb. 2021, 13.00 Uhr - Freitag, 05. Nov. 2021, 17.00 Uhr

Lehrgang

Bilden Sie sich zum zertifizierten Publishing-Multimedia-Profi aus. Neben Fotografie und Video befassen Sie sich mit der Medienproduktion, digitalen Publikationen und dem Webdesign für Desktop- und mobile Endgeräte.

Preis: CHF 10'500.-
Dauer: 30 Tage (ca. 210 Lektionen) – Unterricht findet jeweils am Freitag von 13 - 19 Uhr und Samstag von 09 - 17 Uhr statt

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberatung AT digicomp DOT ch

digicomp.ch/d/9PM

Veranstaltungen
09.09.2021 - 17.12.2021

Digicomp Academy, Zürich
Donnerstag, 09. Sept. 2021, 13.00 Uhr - Freitag, 17. Dez. 2021, 19.00 Uhr

Lehrgang

Steigen Sie in die Welt des Publishings ein und erlangen Sie die Zertifizierung von Publishing NETWORK. Lernen Sie in diesem Lehrgang Druckmedien professionell zu erarbeiten, druckfertige PDFs zu erstellen und CI/CD-Vorgaben umzusetzen.

Preis: 6'300.– zzgl. 7.7% MWST
Dauer: 18 Tage(ca. 126 Lektionen) – Unterricht findet jeweils am Freitag von 13 - 19 Uhr und Samstag von 09 - 17 Uhr statt.

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberater AT digicomp DOT ch