<   2013年 07月 ( 2 )   > この月の画像一覧
[思考] 他人へコメントをするのは、時には良い。
他人に期待していると勝手に裏切られたつもりになる。
逆に、期待してないと相手の良い所を見た時に感心する。

だから、友人への期待値を下げるために、あえてネガティブなコメントをするのも良いのだと思った。
悪口を吹き込むんじゃなくて、「あんまり期待しないほうが良いよ」とかそういう感じで。

そして、良い評価とともに紹介をするにしても
「自分はとても良いと思うけど、君が気に入るかは分からない」とか、
その程度のコメントにした方が良いかもしれない。
むやみに期待値を上げてもしょうが無い。
[PR]
by syatin | 2013-07-26 01:58 | 考え事整理
CopyChartsToPowerPoint
Sub CopyChartsToPowerPoint()

Dim pptFile As String

'Please modify this
'pptFile = "C:\PowerPoint\test.pptx"
pptFile = "C:\Users\Guest\Desktop\PowerPoint\ThankYou.pptx"

'Definición de variables
Dim archivoPPT As PowerPoint.Application
Dim diapositiva As PowerPoint.Slide
Dim grafico As Excel.Chart

Application.ScreenUpdating = False

'Instancia del objeto PowerPoint.Application
Set archivoPPT = New PowerPoint.Application

'Creamos una presentación PowerPoint
archivoPPT.Presentations.Ope n (pptFile)

'Recorrer tods los gráficos en nuestro libro de Excel
For Each grafico In ThisWorkbook.Charts

'Agregar nueva diapositiva
archivoPPT.ActivePresentation.Slides.Add _
archivoPPT.ActivePresentation.Slides.Count + 1, ppLayoutBlank
archivoPPT.ActiveWindow.View.GotoSlide _
archivoPPT.ActivePresentation.Slides.Count
Set diapositiva = archivoPPT.ActivePresentation.Slides( _
archivoPPT.ActivePresentation.Slides.Count)

'Copiar gráfico en la dispositiva
grafico.CopyPicture
diapositiva.Shapes.Paste.Select

'Centramos la imagen insertada
archivoPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, msoTrue
archivoPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, msoTrue

Next

Application.ScreenUpdating = True

'Eliminamos las instancias creadas
Set diapositiva = Nothing
Set archivoPPT = Nothing
Set grafico = Nothing
Set hojaXLS = Nothing

End Sub
[PR]
by syatin | 2013-07-11 16:55 | 雑記